Jak zrobic w AdaGide takie cos ze jezeli nacisne na przycisk csc to wtedy mi zamknie program??

w delphi jest to tak

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then Application.Terminate;
end;

To nie dla mnie tylko dla mojej siostry poniewaz ona pisze na studiach w AdaGide i nie umie rozwiazac takiego problemu.