OnTime Exepction ?

[nitschchedu]

Erstmal Windows ist doch immer Schuld .

Ok hier so sieht das ganze aus.

Delphi-Quellcode:

procedure TfrmBot.Timer1Timer(Sender: TObject);
var
  ID: String;
  Href: String;
begin
  Timer1.Enabled := False;

  if LoginStatus then
  begin
     
    ID := ListView1.Items[Pos].SubItems[14];
    Href := Form1.WebBrowser1.OleObject.
      Document.Frames.item('main').
      Document.location.href;

     if Href <>
      'http://www.google.de/search.php?id=' +
       ID + '&suche=place' then
     begin
       exit;
     end;


     Form1.WebBrowser1.OleObject.Document.Frames.item('main').
      Document.Forms.item('units').Elements.item('x').value
      := ListView1.Items[Pos].Caption;
     Form1.WebBrowser1.OleObject.Document.Frames.item('main').
      Document.Forms.item('units').Elements.item('y').value
      := ListView1.Items[Pos].SubItems[0];
   end;

end;