surf bot programmieren

[BBoy]

Ich möchte einen Bot erstellen der folgendes macht:
1. zu einer url gehen... warten bis komplett geladen ist
2. login ... warten bis komplett geladen ist
3. zu einer bestimmten unterseite gehen ... warten bis komplett geladen ist
4. spezielle daten aus dem html code auslesen

hier der code dazu... nicht wundern ich nutze nicht den standard Twebbrowser!

Delphi-Quellcode:

procedure TForm4.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if aktion = 'login' then begin
      WebBrowser1.FillForm('user','myname);
      webbrowser1.FillForm('pwd','atest');
      post_form;
      aktion := 'link1';
      exit;
  end;
  if aktion = 'link1' then begin
   webbrowser1.Navigate('http://www.mypage.de/login.php');
   aktion := 'extract';
   exit;
  end;

  if aktion = 'extract' then begin
    http_code.Clear;
    http_code.Text := webbrowser1.DocumentSource;
   ..
   ..
    aktion := 'startex';
    exit;
  end;

 if aktion = 'startex' then begin
   ..
   ..
   aktion := '';
   exit;
 end;

end;

Der fehler liegt hier
http_code.Clear;
http_code.Text := webbrowser1.DocumentSource;
dort ist der html code der login seite drin und nicht der von der aktuellen seite. weis jemand warum?
Oder hat jemand eine bessere idee wie ich das realisieren kann?