у кого есть код в delphi7 на создание аутокликера???

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.OnClick(Self);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('11');
end;

Простейший автокликер