tImage координаты

[TipaTipothek]

Форма. На ней scroolbox, в нём tImage. Размеры tImage меняю параметрами width\headg
При mousMove на image у меня есть координаты мышки в данной позиции, и я что то рисую на другом битмапе второго image что поверх картинки с фоном с заданными координатами.

Теперь вопрос. Для масштабирования рисунка (фон и то что рисую на другом) хочу то, что я рисую, привязать не к координатам image, а к координатам реальных размеров картинки (которые получаю например так. form1.ImageFon.Bitmap.Height), т е к реальным координатам точки на картинке, а не к координатам Х У по размеру image, чтоб при масштабировании то что я нарисую на втором битмапе, и наложении его на первый, то что я нарисовал было в правильном месте.

[TipaTipothek]

или как по mouseMove получить координаты не Х У в границах image.width/headth а в координатах реального размера изображения Image.Bitmap.Height/width

[Kronos913]

Вот кусок кода из моей программы

{Предназначен для квадратных Image с включенным Proportional, чтобы по координатам Image найти координаты на изображении}
Function KvPrImageKoeff(Im: TImage):real;
begin
  If (Im.Height<Im.Picture.Height) or (Im.Width<Im.Picture.Width) then begin
    If Im.Picture.Height>Im.Picture.Width then begin
      Result:=Im.Picture.Height/Im.Height;
    End else begin
      Result:=Im.Picture.Width/Im.Width;
    End;
  end else Result:=1;
end;

[TipaTipothek]

Не. это не то.
Например размеры картинки в tImage = 200*125 пикселей.
Размер самого image например 100*50 или 300*200, вообщем произвольный размер.
Картинка пропорционально вписана в размер этого image.
Мне нужно найти по координатам из moseMove (x,y) координаты пикселя на самой картинке, не зависимо от масштаба самой картинки внутри tImage.
Т.е. при движении мышки я получаю координаты х,у в координатной сетке (0,0, image.width, image.height), а мне нужно получать координаты под мышкой в координатах (0, 0, Image.Bitmap.width, Image.Bitmap.height)

[evg_m]

получаю координаты х,у в координатной сетке (0,0, image.width, image.height)

пропорционально вписана в размер этого image.

а мне нужно получать координаты под мышкой в координатах (0, 0, Image.Bitmap.width, Image.Bitmap.height)

xx:=round ( x / (image.width / bitmap.width) );

r:= x /image.width; //  (0... 1)  --'относительное смещение' в image 
d:=r * bitmap.width; // "абсолютное смещение" в bitmap
xx:=round(d); //убираем "неполный пиксел"

для y аналогично.