vielleicht hilft das weiter ....
Code:
var: FEdit : array[0..35]of TEdit;
I : Byte;
begin
for I := 0 to 35 do
begin
FEdit := TEdit.Create(Self);
FEdit[I].Name := 'Edit' + IntToStr(I);
FEdit[I].Left := .....;
....
FEdit[I].Text := FEdit[I].Name;
end;
end;
das sollte dein problem lösen
