Hola.
De momento se me ocurren dos opciones; un arreglo de
TImages
Código Delphi
[-]
...
var
Img: array[1..5] of TImage;
procedure TForm1.FormCreate(Sender: TObject);
begin
Img[1] := Image1;
Img[2] := Image2;
Img[3] := Image3;
Img[4] := Image4;
Img[5] := Image5;
end;
...
Img[3].Picture.LoadFromFile('delphi.bmp');
O localizar el control por su nombre:
Código Delphi
[-]
...
var
cp: TComponent;
begin
cp := FindComponent('Image3');
if Assigned(cp) then
TImage(cp).Picture.LoadFromFile('delphi.bmp');
Seguramente te propondrán otras alternativas.
Saludos