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;

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

Left:= 100 ; Top:= K* 10 ;

OnMouseMove:= WhatToDoWhenMouseIsMoved; {Что-то делаем при перемещении мыши}

end ;

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

Finally
For K:= 0 to 99 do EditArray[K].Free;
end ;

Опрос