[ecfisa]

Hola San29.

En un Edit sería algo como:

Código Delphi [-]
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (UpCase(Key) in[#8,'A'..'Z']) then
  begin
    Beep;
    Key:= #0;
  end;
end;

Saludos.