Webbrowser / abzuarbeitene Reihenfolge

[Firewing]

Hallo Leute, wieder einmal brauche ich eure Hilfe.
Und zwar möchte ich, dass der Webbrowser folgende Schritte durchführt.

Schritt 1: Seite mit LoginFormular ausfüllen und abschicken
Schritt 2: Zu einer Seite im Mitgliederbereich wechseln
Schritt 3: HTML Quelltext speichern und in Memo ausgeben

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;
  if DumpStep = 2 then
    begin
      webbrowser1.Navigate(Edit1.text);
      DumpStep := 3;
    end;
  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;

Nun gibt er mir aber bereits den Quelltext bei Schritt 1 aus. Wo liegt das Problem? Hat da jemand ne Lösung, evtl eine grundlegende Verbesserung? Mir scheint, dass ich das eh unglücklich programmiert habe...