1:
2:
3:
4:
5:
6:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image1.Left := x - image1.Width div 2;
image1.top := y - image1.Height div 2;
end;					

1:
2:
3:
4:
5:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Left := mouse.CursorPos.x - form1.Left - image1.Width div 2 - 4;
image1.Top := mouse.CursorPos.y - form1.top - image1.Height div 2 - 23;
end;