Как узнать имя созданного TImage?

Showmessage(img.Name);

{$R *.dfm}
 
 
procedure TForm1._MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button<>mbLeft then move:=false //если нажали не левой кнопкой, то перемещать не будем!
else begin
move:=true;
x0:=x; //запоминаем начальные координаты
y0:=y; //запоминаем начальные координаты
end;
end;
 
procedure TForm1._MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if move then begin
(Sender As TImage).Left:=(Sender As TImage).Left+x-x0;
(Sender As TImage).Top:=(Sender As TImage).Top+y-y0
end;
end;
 
procedure TForm1._MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
move:=false;
end;
 
 
procedure TForm1.Imag1Click(Sender: TObject);
 
begin
  Img := TImage.Create(Form1);
  Img.Parent := Form1;
  Img.Picture.LoadFromFile('refregirator.jpg');
  Showmessage(img.Name);
  Img.OnMouseDown :=_MouseDown;
  Img.OnMouseMove :=_MouseMove;
  Img.OnMouseUp :=_MouseUp;
end;
 
 
end.

Showmessage(img.Name);