relativen Urprung eines Canvas ermitteln

[Takeshi]

Tag.

Ich möchte in einer Funktion der ein Canvas übergeben wird dessen Ursprung auf dem Bildschrim ermmitteln. Ich habe das Problem folgendermaßen vereinfacht:

Delphi-Quellcode:

function GetCvasOrgn(CVas:TCanvas):TPoint;
begin
GetDCOrgEx(CVas.Handle,Result);
end;

procedure TForm1.btnCheckOrgnClick(Sender: TObject);
begin
Mouse.CursorPos:=GetCvasOrgn(PaintBox1.Canvas);
end;

Beim Klick auf den btnCheckOrgn springt der Mauszeiger aber an den ClientOrigin der Form und nicht an den Origin der PaintBox.
Was mach ich da falsch?

Viele Grüße + Danke, Christoph