procedure TForm1.Button1Click(Sender: TObject);
var
n: integer;
x: Integer;
MiEdit: TEdit;
begin
N:= 1;
X:=20;
Repeat
begin
MiEdit := TEdit.Create(Self);
MiEdit.Parent := Self;
MiEdit.Width:= 150;
miedit.Left:= 60;
miedit.Top:= X;
miedit.Name:='Miedit'+IntToSTr(n);
N:= N + 1;
X:= X + 25;
end;
until
N = 10;
end;