on click TImage32 die position vom curser auf dem bild

[gandime]

jo thx geht
aber iwie blicke ich bei der hilfe von gr32 nich durch

edit:
nö es geht doch ned ich bekomme immer die werte raus egal wo ich hinclicke
x:77
y:-460
edit2:

Delphi-Quellcode:

procedure Tform1.Image321Click(Sender: TObject);
var
  pos : TPoint;
begin
  Image321.ControlToBitMap(pos);
  i_click_x:=inttostr(pos.X);
  i_click_y:=inttostr(pos.y);
end;

bisher sieht mein code so aus
wo is der fehler?