Динамическое создание объекта во фрейме

[Sascha]

Весь день бьюсь и не могу заставить код откомпилироваться без ошибок.

Есть фрейм, на нем динамически создаем потомков TImage класса.

unit fram;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants, FMX.Objects,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation;

type
  TMovingImage = class(TImage)
    constructor Create(AOwner: TComponent; X, Y: integer); overload;
  end;

type
  TFrame1 = class(TFrame)
    Button1: TButton;
    procedure imgMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
  private
  public
  end;

implementation

{$R *.fmx}

uses main;

constructor TMovingImage.Create(AOwner: TComponent; X, Y: integer);
begin
  inherited Create(AOwner);
  Position.X := X;
  Position.Y := Y;
  Width := 100;
  Height := 100;
  onMouseDown := TFrame1.imgMouseDown;
end;

procedure TFrame1.imgMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  // code here
end;

end.

Не могу присвоить событию OnMouseDown, десяток вариантов попробовал. Компилятору постоянно что-то не нравится! Please help me

[OnePeople]

TFrame1.imgMouseDown;

Может все таки 

Frame1.imgMouseDown;

[Sascha]

15 минут назад, OnePeople сказал:

TFrame1.imgMouseDown;

Может все таки 

Frame1.imgMouseDown;

так тоже пробовал

Undeclared identifier: Frame1

[OnePeople]

onMouseDown :=  (Self.Parent as TFrame6).imgMouseDown;

[Sascha]

58 минут назад, OnePeople сказал:

onMouseDown :=  (Self.Parent as TFrame6).imgMouseDown;

Наворочено, но работает)) спасибо

[OnePeople]

onMouseDown :=  (Название формы в main).Frame11.imgMouseDown;

[krapotkin]

эмм крайне странная логика, не ?
обработчик должен присваивать тот кто создает, а не тот, кого создают
и уж 99.9% компонент не должен знать ничего о классе, куда его будут вставлять

procedure TFrame6.SomeProc();
var
  img: TMyImage;
begin
img := TMyImage.Create(Self);
img.parent := layout5;
img.OnMouseDown := OnMouseDown;
images.add(img);
end;