TEdit, TSpinEdit

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;