Code:

procedure DoSomethingWithEditControls;

var

K: Integer;

EditArray: array[0..99] of Tedit;

begin

try

   for K := 0 to 99 do

   begin

     EditArray[K] := TEdit.Create(Self);

     EditArray[K].Parent := Self;

     {Устанавливаем необходимые свойства TEdit}

     SetSomeOtherPropertiesOfTEdit;

     Left := 100;

     Top := K * 10;

     {Что-то делаем при перемещении мыши}

     OnMouseMove := WhatToDoWhenMouseIsMoved;

   end;

   {Делаем все что хотим с полученным массивом Edit-компонентов}

   DoWhateverYouWantToDoWithTheseEdits;

finally

   for K := 0 to 99 do

     EditArray[K].Free;

end;

end;

Code:

var

eds: array[1..3,1..3] of TEdit;

ix: integer;

ed: TEdit;

begin

for ix := 0 to 8 do

begin

   ed := FindComponent('Edit'+IntToStr(ix+1)) as TEdit;

   if ed <> nil then

     eds[ix div 3 + 1,ix mod 3 + 1] := ed;

end;

end;

Code:

for ix := 1 to 3 do

eds[2,ix].Text := eds[1,ix].Text;