Überleg mal, das ist ganz einfach.
Doch, das Problem habe ich mit String gelöst
Delphi-Quellcode:
...
Bublic
myimagename:String;
...
var
myimage:TImage;
procedure TForm2.Image1Click(Sender: TObject);
begin
Form1.myimagename:='Form2.Image1';
...
Nun aufruf in Form1
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
myimage.Name :=myimageName;
H:=myimage.Hight;
Oder gibt es was noch einfacher ?