Maus positionieren Problem

[API]

Hello,

versuche die Maus über einem Button zu positionieren, da es möchte mir nicht gelingen.
Der Maus-Cursor erscheint etwas verschoben unterhalb des Buttons. Was mache ich falsch?

Delphi-Quellcode:

var
  MousePos: TPoint;
begin
    MousePos.X := Button1.Left + Button1.Width div 2;
    MousePos.Y := Button1.Top + Button1.Height div 2;
    Mouse.CursorPos := ClientToScreen(MousePos);
end;