[Мяфк]

Доброго времени суток. Возникла следующая проблема: Нужно создать 100+ TImage. На одинаковом расстоянии, и переименовать их как надо. Вручную это займёт много времени, можно ли как-нибудь программно? Знаю, можно таким кодом:

Код:

procedure DoSomethingWithEditControls;
var
  K: Integer;
  EditArray: array[0..99] of Tedit;
begin
  try
    for K := 0 to 99 do
    begin
      EditArray[K] := TEdit.Create(form1);
      EditArray[K].Parent := form1;
      EditArray[k].Left := 100;
      EditArray[k].Top := K * 10;
      EditArray[k].Visible:=true;
    end;
  finally
  end;
end;

Но тут он создаёт тедиты в программе, а мне нужно в самом проекте.