[Страдалецъ]

Код:

Var
 ImageArr: Array[1..10] of TImage;
 i: Integer;
begin
 for i := 1 to 10
 do begin
     ImageArr[i] := TImage.Create(Form1);
     ImageArr[i].Parent := Form1;      
     end;
end