Button mit Timer1 drücken!

[Blackheart]

Versuchs mal so...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Timer1.Enabled:=true; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin
Timer1.Enabled:=False; 
Edit1.Text:=WebBrowser1.OleObject.document.forms.item(0).elements.item('feld1').value; 

end;

Zu 2.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); 
begin 
Button1.Click; 
end;