Delphi/Lazarus: ModalResult ohne Button setzen

Ich habe eine Form, mit zwei Buttons, die ModalResult auf mrOk oder mrCancel setzen. Das funktioniert perfekt. Ich rufe die Form mit ShowModal auf und wenn der Nutzer auf einen der Buttons klickt, schließt das Fenster und ich kann das Ergebnis auswerten.

Nun möchte ich aber auch erlauben, dass der Nutzer nicht nur auf den Button klicken kann, sondern auch mit einer Tastenkombination das Fenster schließen kann. Dazu habe ich KeyPreview auf true und folgende Prozedur definiert.

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; 
   Shift: TShiftState);
begin

  if key = ord(#13) then begin
     ModalResult := mrOk;
     Close;
  end;

end; 

Der Aufruf erfolgt folgendermaßen:

if Form2.ShowModal = mrOk then begin
   // Code nach Okay
end else begin
   // Code nach Abbruch
end;

Leider funktioniert das überhaupt nicht. Das ModalResult ist immer mrNone, obwohl ich es ja eigentlich auf mrOK gesetzt habe. Was mache ich hier falsch?