Key wird nicht gelöscht, warum?

[Delphi.Narium]

Eventuell im Form KeyPreview auf True und dann im OnKeyDown des Forms bei Return Key auf 0 setzen?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True; // Kann man auch im Objektinspektor setzen.
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case key of
    // Windows.VK_SPACE : ZeigeWas; // ist nicht erforderlich, da beim Betätigen der Leertaste, 
    // mit Focus auf dem Button, sowieso das OnClick des Buttons ausgelöst wird.
    Windows.VK_RETURN : key := 0;
    // Windows.VK_ESCAPE : Application.Terminate;
    Windows.VK_ESCAPE : Close; // Halte ich für sinnvoller.
  end;
end;