[urahara]

например так:

Код:

var
  i,j:Integer;
  AEdit: array[0..4,0..4] of TEdit;
begin
  for i := 0 to 4 do
    for j := 0 to 4 do
      begin
        AEdit[i,j]:=TEdit.Create(Form2);
        With AEdit[i,j] do
          begin
            Left := Random(Form2.Width);
            Top := Random(Form2.Height);
            Parent := Form2;
          end;
      end;
end;