Yo hallo,
1) Du solltest mal modulileren (in Methoden zusammen fassen)
2) Nimm mal die power-Funktion für Exponential- Berechnungen anstatt. ... * 1024 * 1024 * 1024
Delphi-Quellcode:
Sowas hier ...
if shift=[] then begin
case key of
27: Close;
end;
end;
... ersetze mal durch
if (shift=[]) AND (key = 27) then Close;