twebbrowser auf einen button klicken...

[gandime]

also hier mal mein code:

Delphi-Quellcode:

  begin
  Web.navigate('http://xyz.de/');
  if warten then
  begin
    Web.OleObject.Document.Frames.item('mainframe').Document.Forms.item(0).Elements.item('login').value:='user';
    Web.OleObject.Document.Frames.item('mainframe').Document.Forms.item(0).Elements.item('pass').value:='pw';
    showmessage(inttostr(Web.OleObject.Document.Images.Length)); // ergebnis: 0
  end;
end;

function TForm1.warten:boolean;
begin
  repeat
    Sleep(50); 
    Application.ProcessMessages;
  until (b_web_f=true) or (Application.Terminated);
  b_web_f:=false;
  result:=true;
end;

procedure TForm1.WebDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurWebrowser: IWebBrowser;
  TopWebBrowser: IWebBrowser;
begin
  b_web_f:=false;
  CurWebrowser := pDisp as IWebBrowser;
  TopWebBrowser := (ASender as TWebBrowser).DefaultInterface;
  if CurWebrowser = TopWebBrowser then
  begin
    b_web_f:=true;
    showmessage('haupt');
  end
  else
  begin
//    showmessage('sub');
  end;
end;

joa iwie komme ich nicht weiter...