Форум АНТИЧАТ - Показать сообщение отдельно - Delphi 7 - Создать Imgae программно в виде матрицы

Всем привет, ребят помогите пожалуйста разобраться в Delphi 7 с автоматическим созданием Image, желательно кодом

У меня имеется массив ссылок на картинки в интернете, в формате JPEG.

Мне нужно вывести их вот в таком виде:
n - строки
m - столбцы, их 4

Мои попытки:
1) функция загрузки

Цитата:

function TMyForm.LoadImage(const url: string; var tmpname: string): Boolean; var fs: TFileStream; begin
IdHTTP1.ReadTimeout := 4000;
tmpname := 'temp' + ExtractFileExt(url); fs := TFileStream.Create(tmpname, fmCreate);
try IdHTTP1.get(url, fs) except fs.Free;
Result := False;
Exit;
end;
Result := True;
fs.Free; end;

2) Создание Image

Цитата:

procedure TMyForm.Button1Click(Sender: TObject);
var img: TImage;
i, y, x: Byte;
filename: string;
begin

y := 10;
x := 25;

for i := Low(Links) to High(Links) do
begin

if LoadImage(Links[i], filename) then
begin
img := TImage.Create(MyForm);
img.Parent := MyForm;
img.AutoSize := False;

try
img.Picture.LoadFromFile(filename);
finally
img.Left := x;
img.Top := y;
y := y + img.Height + 20;
DeleteFile(filename)
end;
end;
end;

end;