Si el procedimiento que menciona
Roman y
lucarsarts_18 no tiene que identificar cada TImage individualmente, sería más sencillo con solo hacer:
Código Delphi
[-]
procedure HazAlgo(Imagen: TImage);
begin
with Imagen do
begin
end
end;
Una llamada a este procedimiento podría ser:
Código Delphi
[-]
procedure Form1.Button1Clik(Sender: TObject);
begin
HazAlgo(Image1) end;
Espero que este te permita tener más clara la idea...
Saludos...