Onkeydown in delphi console?

[Splinter]

yo also

ich hab mir diese pascal include dateien schon vor einiger zeit runtergeladen (glaube sogar von deiner hp lucky)
und dann einfach:

Delphi-Quellcode:

...
{$include ConTools.inc}

var wahl:char;

begin
wahl := readkey;
 If wahl = #27(*escape*) Then exit
 Else clrscr;
end.