Hardware Delphi

Title: Set mouse to new position
Use Mouse_Event function. For example:
procedure TForm1.Button1Click(Sender: TObject);
begin
Mouse_Event(MOUSEEVENTF_MOVE, 50, 50, 0, GetMessageExtraInfo);
end;