Buton Tetikleme

Bu kodla Edit1.text'te yazdığınız rakam değerini örneğin 10 olsun, button1 e tıkladığımda button2 10 sayısı kadar tıklar.

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i:=1 to StrToInt(Edit1.Text) do
Button2.Click;
end;