[Redstason]

Код:

procedure TForm1.CreateEdits(offset: integer);
 var
  edit: TEdit;
begin
 edit := TEdit.Create(form1);
 edit.Parent := form1;
 edit.Left:=10;
 edit.Top := 30 * offset;
end;


procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
 var
  i:integer;
begin
 if KEY=#13 then
  begin
   for i:=1 to StrToInt(ComboBox1.Text) do
    begin
     CreateEdits(i);
    end;
  end;
end;