Delphi Problem mit Schleife und Timer

Ich habe ein Problem mit Delphi
und zwar ist es mein Ziel mit folgendem Programm solange Leerzeichen auszugeben, bis der Timer abgelaufen ist.
Problem: Während die Schleife zur Leerzeichenausgaben am Laufen ist, läuft der Timer irgendwie nicht weiter...

in das editfeld ezeit wird das intervall des timers in sek. geschrieben
wenn der timer ausgelaufen ist schreibt er ein 'true' in ende

und das soll der code sein:

begin
zeit:= strtoint(ezeit.text);
timer.interval:=zeit*1000;
//showmessage(inttostr(timer.interval));
timer.enabled:=true;
application.minimize;
while ende <> 'true' do
begin
keybd_event(Ord(' '), 0, 0, 0); //Taste drücken
keybd_event(Ord(' '), 0, KEYEVENTF_KEYUP, 0); //loslassen
end;
end;

vielen dank, falls mir jemand weiterhelfen kann, weil selbst wenn ich den timer auf 1 sekunde setzte und eine Minute warte, läuft die Ausgabe immer weiter...

 

Code:

 while ende <> 'true' do begin
    keybd_event(Ord(' '), 0, 0, 0); //Taste drücken
    keybd_event(Ord(' '), 0, KEYEVENTF_KEYUP, 0); //loslassen
    application.processmessages;
  end;

Mfg

 

danke bistn schatz ^^
klappt alles wie ichs dachte!