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.