Probleme mit Schleifen

[KyroxX]

Hallo,

habe folgenden, einfachen Quellcode zum senden von Shortcuts an nen andres Fenster:

Delphi-Quellcode:

ShellExecute(Handle,'open',PChar('c:\programm.exe'),nil,nil,SW_SHOWNORMAL);
sleep (50);
AppActivate('Fenstername');
SendKeys('%(AW)', TRUE);
application.Terminate;

Wie ihr seht starte ich das "programm.exe", warte 50 Milisekunden,
und sende dann die Tastenkombi "Alt+A+W". ('%(AW)')
Die Kombi wird an das Angesprochene fenster gesendet, welches mit der
funktion "AppActivate('Fenstername'); ermittelt wird.
Dann beendet es sich von selbst.

Alles soweit ok!

Aber jetzt muss ich eine Endlosschleife da rein bringen die alle 50 Milisek.
nach einem Titel sucht und währenddessen durchgehend "Warte auf Programm" anzeigt.
Wenn der richtige Titel dann gefunden ist, soll das Programm den Shortcut senden,
und sich dann beenden.

Sollte ja eigentlich kein problem sein mit ner while Schleife oder so -
aber ich hab irgendwie keine erfolge damit ^^
Kann mir einer von euch vielleicht helfen? Is irgendwie wichtig das ich das hinbekomm *gg*

Thx im vorraus!

p.s.: Code müsste eigentlich so ähnlich lauten:
while AppActivate('fenstername') do
begin
SendKeys('%(AW)', TRUE);
application.Terminate;
end;

aber wie mach ich es das er alle 50 milisek. das macht, und wie zeige ich dann die meldung "warte auf Programm" an?

pp.s.: Die AppActivate funktion hat auch ein result, also wenn result = false ist, heisst das der er das Fenster nicht gefunden hat -.- Die funktion liegt aber in einer andren unit...