Trap the KeyPress event for the keys you do not want, and set the key to #0 to prevent the beep. Example:

procedure TForm .Edit KeyPress(Sender: TObject; var Key: Char);
begin
  if ((UpCase(Key) < 'A') or
      (UpCase(Key) > 'Z')) then
   Key := #0;
end;