lästiges beepen abstellen ??

[jbg]

Dann muss man einfach für jede Edit-Komponente die Ereignisbehandlungsroutine (EventHandler ist viel kürzer) auf dieselbe Methode setzen und nicht mehr über das FormKeyDown-Ereignis alle abfangen.

Oder man prüft mit Hilfe der Eigenschaft ActiveControl von TForm, welche Komponente gerade den Focus hat.
Z.B.:

Code:

if (ActiveControl <> nil) and not (ActiveControl is TMemo) then
begin
  { hier den vorherigen Code einfügen }
end;