Simulating a button press?

You could also try this:

procedure Tform.timer1timer(Sender: TObject);
begin
  btnTest.Click;
end;

-eric