WYSIWYG рисование текста на Image

[Человек_Борща]

Доброго времени суток!

В дизайнере, TLabel расположено над TImage в удобных, для юзера, координатах.

Как нарисовать текст от Tlabel, точно там же где расположен TLabel?

Вот код:

begin
  Img := TBitmap.Create;
  try
    Img.Assign(fSrcBitmap);
    bMode := GetBkMode(Img.Canvas.Handle);
    SetBkMode(Img.Canvas.Handle, TRANSPARENT);
    for i := 0 to Count - 1 do
    begin
      Img.Canvas.Font := Items[i].Text.Font;
      Img.Canvas.TextOut(Items[i].Text.Top, Items[i].Text.Left, Items[i].Text.Caption);
    end;
    SetBkMode(Img.Canvas.Handle, bMode);
    aSsignTo.Picture.Assign(Img);
  finally
    FreeAndNil(Img);
  end;
end;

Вот вид в дизайнере:


Вот вид на печати:


Как исправить? Как добиться результата по принципу WYSIWYG (Как видишь, так и будет).

[Аватар]

В Text.Top и Text.Left координаты относительно чего? Если не левого верхнего угла Image, то пересчитать их (ScreenToClient, ScreenToClient)

[Человек_Борща]

В редакторе лежит WorkAreaGr:TGroupBox, внутри него TImage с Align:=alClient, т.к. TImage нельзя сделать Parent'ом для TLabel. Итого, координаты идут относительно TGroupBox. Как быть?

Получается мне надо как-то координаты из квадрата(TRect) TGroupBox перевести в координаты в квадрате TImage.

[Аватар]

var p: TPoint;

  p:=Image1.ScreenToClient(Label1.ClientToScreen(Point(0,0)));