[gabrielkc]

Empezado por Jose Roman

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z']) then key:=#0;
end;

pequeña correción;

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If not (Key in ['A'..'Z','a'..'z',#8,#13]) then key:=#0; //para que permitas el BackSpace y el Enter
end;