Можно сделать массив рисунков, только не TImage а TPicture:
////////////////////////////////////////////////////////////////////
var
Form1: TForm1;
ImgMatrix : array [1..5] of TPicture;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//Присваиваем в массив:
ImgMatrix[1] := TPicture.Create;
ImgMatrix[1] := Image1.Picture;
// Присваиваем из масива в картинку:
Image2.Picture := ImgMatrix[1];
end;
end.
|