Webbrowser / abzuarbeitene Reihenfolge

[Die Muhkuh]

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if DumpStep = 1 then
    begin
      WB_FillPwdForm(Webbrowser1, 'Login_email', StudiUser, 'Login_password', StudiPW);
      webbrowser1.oleobject.document.forms.item('Login').elements.item('login').click;
      DumpStep := 2;
    end
  else
  if DumpStep = 2 then
    begin
      webbrowser1.Navigate(Edit1.text);
      DumpStep := 3;
    end
  else
  if (DumpStep = 3) then
    begin
      WB_SaveHTMLCode(Webbrowser1, ExtractFilePath(Paramstr(0)) + '\temp\quelltext.txt');
      ListBox1.Items.Add('[' + TimeToStr(now) + ']' + ' Temp-Datei für den Quelltext angelegt');
      WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
      ListBox1.Items.Add('[' + TimeToStr(now) + ']' + ' Quelltext geöffnet');
      DumpStep := 4;
    end;
end;

Versuch das mal mit else if. Ansonsten wird jede Abfrage ausgeführt.