[Janom]

не совсем понял что ты имеешь в виду, наверное что-то такое:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  edits:TEdit;
  i:integer;
begin
for i:=1 to <кол-во файлов> do
  begin
  edits:=TEdit.Create(Form1);
  edits.parent:=form1;
  edits.Text:=<Имя файла>;
  edits.Top:=edits.Height*i;
  edits.name:='MyEdit'+IntToStr(i);
  end;
end;