testupload.jsp ausfüllen und upload.jsp ausführen

[StoRmtec]

Hallo Leute

Habe eine Frage.
Habe das schon hinbekommen das er mir meine testupload.jsp ausfüllt und auch abschickt aber wie kann ich jetzt warten, bis er mir dann die upload.jsp ausgeführt hat weil da kommt dann das result nach und dann wieder von vorne anfängt.

Das ist der Code wo ich das testupload.jsp ausfülle.

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject); 
var 
i: Integer; 
begin 
ProgressBar1.min := 1; 
ProgressBar1.step := 1; 
ProgressBar1.max := CheckListBox1.Items.Count; 
for i := 0 to CheckListBox1.Items.Count -1 do 
begin 
  WebBrowser1.Navigate('http://www.stumpner.net/uploadbean/testupload.jsp'); 
  repeat 
        Application.ProcessMessages; 
        Sleep(100); 
  until WebBrowser1.ReadyState = 4; 
  WebBrowser1.OleObject.Document.Forms.item(0).elements.item('eventid').Value:=Edit3.Text; 
  Clipboard.AsText :=  CheckListBox1.items[i]; 
  WebBrowser1.OleObject.Document.Forms.item(0).elements.item('uploadfile').Focus; 
  repeat 
    Application.ProcessMessages; 
    Sleep(100); 
  until WebBrowser1.ReadyState = 4; 
  KeyPreview:=False; 
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0),0,0); 
  keybd_event(Word('V'), MapVirtualKey(Word('V') , 0),0,0); 
  keybd_event(Word('V'), MapVirtualKey(Word('V') , 0),KEYEVENTF_KEYUP,0); 
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0),KEYEVENTF_KEYUP,0); 
  repeat 
    Application.ProcessMessages; 
    Sleep(100); 
  until WebBrowser1.ReadyState = 4; 
  WebBrowser1.OleObject.Document.Forms.item(0).submit; 
  ProgressBar1.Position := i+1; 
   repeat 
    Application.ProcessMessages; 
    Sleep(100);
until WebBrwoser1.ReafyState = 4; 
end;

und jetzt sollte er dann warten bis das upload.jsp komplett ausgeführt ist.

Mfg
StoRmtec