Onkeydown in delphi console?

[Splinter]

hi
ich hab hier nen kleines testprogrämmchen in der console und möchte das wenn man escape drückt das programm sich schließt.
ich hab schonma bissel mit der suchfunktion nach onkeydown usw gesucht aber bin nicht wirklich fündig geworden.
d.h. ich hab zwar was eingebunden das er auch ohne fehler akzeptiert aber reagieren tut er trotzdem nicht:

Delphi-Quellcode:

program Project1;

uses windows, SysUtils, Classes, Forms;
{$apptype console}

type
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
      end;



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
  if key = vk_escape then exit;
end;

begin

readln

end.

was mach ich falsch?

danke im voraus
Splinter