FMX TPaintBox

[KodeZwerg]

So in etwa besser?

Delphi-Quellcode:

var
  newPos: TPoint;
begin
  newPos := ScreenToClient(Mouse.CursorPos);