Uruchamianie DOSowego programu i czekanie na zakończenie

Wie ktoś jak z Delphi uruchomić 16-bitowy program MS-DOS i poczekać na jego zakończenie (potrzebuje po prostu wyników tego programu, a pętla typu:
while not FileExists(Plik_w_którym_jest_wynik) do nie zawsze działa, gdyż plik może istnieć i nie zawierać jeszcze wszystkich wyników)?

Możesz sprawdzić czy istnieje uchwyt do tego programu

piechnat

var
hWnd:THandle;
begin
hWnd := FindWindow(PCHAR(ClassName),nil);
if IsWindow(hWnd) then //znaczy że jest
end;

Do ClassName podajesz clase okna ale nie wiem co to
można też jak to program dosowy
hWnd := FindWindow(nil, 'a tutaj tytół okienka');

piechnat