Получить координаты и размер битмапа относительно TImage

[Тоба]

Здравствуйте.
На форме имеется Panel c привязкой alClient
В этой панели находится TImage
TImage настроен так:
Align:= alClient
Center:= true
Proportional:= true
Stretch:= true
Собственно вопрос:
Как получить TRect изображения, загруженного в TImage, относительно самого TImage, иначе говоря узнать координаты битмапа внутри TImage
Т.е при растягивании формы - пропорционально растягивается и изображение, соответственно меняя и свои визуальные размеры
В панели лежит Label(LabelTime), в котором по таймеру показывается
время.
Что надо:
При растягивании формы LabelTime должен всегда перемещаться/находиться в
правом нижнем углу именно изображения, а не имеджа.
Чтобы было понятней вот набросок:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    PanelControl: TPanel;
    PanelView: TPanel;
    ImageView: TImage;
    Timer1: TTimer;
    LabelTime: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure PanelViewResize(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
PanelView.DoubleBuffered:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
LabelTime.Caption:=TimeToStr(Now);
end;

procedure TForm1.PanelViewResize(Sender: TObject);
begin
// здесь надо вычичлять координаты изображения и перемещать LabelTime(часы)
//в нижний правый угол изображения
end;

end.

[Filka]

implementation

type
  THackImage = class(TImage);

procedure TForm1.PanelViewResize(Sender: TObject);
var
  R: TRect;
begin
  R := THackImage(ImageView).DestRect;
  LabelTime.Top := R.Bottom - LabelTime.Height;
  LabelTime.Left := R.Right - LabelTime.Width;
end;

Или

procedure TForm1.PanelViewResize(Sender: TObject);
var
  R: TRect;
  T, L: Integer;
begin
  R := THackImage(ImageView).DestRect;
  T := R.Bottom - LabelTime.Height;
  L := R.Right - LabelTime.Width;
  LabelTime.SetBounds(L, T, LabelTime.Width, LabelTime.Height);
end;

[Тоба]

Хм...
Как всё просто на самом деле.
Я уже начал с GR32 выдерать функцию GetBitmapRect под свои нужды, а тут...

Спасибо тебе мил человек.

[Filka]

Пожалуйста.

[NIKOLAYY2]

Тоба
При растягивании формы LabelTime должен всегда перемещаться/находиться в
правом нижнем углу именно изображения, а не имеджа.

Привязка к якорю.

Тоба
Хм...
Как всё просто на самом деле.
Я уже начал с GR32 выдерать функцию GetBitmapRect под свои нужды, а тут...

Привязка к якорю в 2 клика еще не проще ли!?

[Тоба]

Так не получается, так Label привязывается к своему родителю в правый нижний угол, а надо именно относительно самого битмапа, а вот способ предоставленный
Filka, прекрасно подходит, я могу варировать абсолютно любыми отступами.
Но всё равно спасибо, что попытались помочь.