OnTime Exepction ?

[nitschchedu]

Also das sind 3 Sachen:

1: Ich drücke den Button

Delphi-Quellcode:

procedure TfrmBot.Button2Click(Sender: TObject);
var
   ID: String;
begin
  [u]Pos := 0;[/u]

  if ListView1.Items.Count = 0 then
  begin
     ShowMessage('Bitte erstmal was in die Liste eintragen!');
     Exit;
  end;

  ID := ListView1.Items[Pos].SubItems[14];

  Form1.WebBrowser1.Navigate(http://www.google.de/search.php?id=' + 
       ID + '&suche=place');
end;

So das "Form1.WebBrowser1.Navigate(http://www.google.de/search.php?id=' +
ID + '&suche=place');" ruft eine Seite auf.

2: Nun warte ich bis die Seite Fertig ist.

Delphi-Quellcode:

procedure TfrmBot.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Form1.Edit1.Text := URL;
  Form1.StatusBar1.SimpleText := URL+' erfolgreich geladen';
  Timer1.Enabled := True;
end;

Mit "Timer1.Enabled := True;" Schalte ich es an (Da noch Frames mit geladen werden Warte ich 3 Sekunden).

3: Siehe oben das OnTime.