Problem mit gedrückter Return-Taste

[bergamo34]

Hallo!

in der KeyPress-Ereignisroutine einer ComboBox wird die Funktion Insert aufgerufen.
Problem: wenn die Return-Taste gedrückt und nicht losgelassen wird, wird die Funktion mehrmals aufgerufen. Wie kann man erreichen, so dass die Funktion nur einmal aufgerufen wird, egal ob man die Return-Taste gedrückt hält oder mehrmals hintereinander schnell drückt.

Code:

procedure Tfrm_eingabe.cobxformatKeyPress(Sender: TObject;  var Key: Char);
begin
    if (Key = #13) and bCanInsert then
    begin
      try
        Insert;
      finally
        bInserting := False;
      end;
      Key := #0;
    end
end;

Mfg
Ali