Komisches Geräusch ebi Edit1KeyDown

[Green]

Also wenn ich das so hab:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if shift = [ssCtrl] then
    if key = ord('K') then begin
      TEdit(Sender).Text      := TEdit(Sender).Text + #3;
      TEdit(Sender).SelStart  := length(TEdit(Sender).text);
      key := Ord(#0);
      end;
  if key = VK_RETURN then begin
    Button1Click(Sender);
    key := Ord(#0);
  end;
end;

dann geht das immer noch nit...
und ich muss KeyDown nehmen