SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ Emulate button press

The easiest way of the realization is direct calling of OnClick event:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Button1.OnClick(Sender);
end;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes