formularfelder einer website ausfülle?

[ensacom]

So, eine letzte Frage hätte ich noch

Code:

procedure TForm1.fillform;
begin
  with WebBrowser1 do
  begin
    OleObject.Document.Frames.item('MAIN').Document.Forms.item('loginform').Elements.item('REGEMAIL').value := '[e-mail]';
    OleObject.Document.Frames.item('MAIN').Document.Forms.item('loginform').Elements.item('REGCODE').value := 'Passwort';
    OleObject.Document.Frames.item('MAIN').Document.Forms.item('loginform').Elements.item('B1').value := 'Passwort';
  end;
end;



procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurWebrowser: IWebBrowser;
  TopWebBrowser: IWebBrowser;
begin
  CurWebrowser := pDisp as IWebBrowser;
  TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
  if CurWebrowser = TopWebBrowser then
  begin
    WebBrowser1.OleObject.Document.Frames.item('MAIN').Document.location.href := 'http://www.tmssoftware.com/asp/reg_input.asp';
  end;
  fillform;  //FEHLER
end;

Wenn ich fillform dort aufrufe gibt es eine zugriffsverletzung weil das Formular noch nicht im Mainframe ist.

Hat einer ne Idee wie ich abfragen kann ob es komplett ist, um dann das Formular zu füllen?

Danke