delay schleife lässt programm nicht schließen

[smc]

vorsicht pseudocode, hab mein laptop leider gerade nicht hier zum code kopieren

das steckt im button:

Delphi-Quellcode:

while blah = true do
begin
if (ReadProcessMemory(Handle,ptr(offset),@test,sizeof(test),N)) then
label.caption:= FloatToStr(test);

delay(1000);
end;