procedure TForm1.Button6Click(Sender: TObject);
var ListBox:TListBox;
begin
ini_f1:=TIniFile.Create(ExtractFileDir(Application.ExeName)+'\'+edit1.Text+'.ini');
ini_f1.ReadSections(ListBox.Items);

 frmUser := TForm.Create(Self);
 //InputQuery('Íàçâàíèå øàáëîíà','Ââåäèò ;å íàçâàíèå øàáëîíà',value);
 //frmUser.Caption := value;
 frmUser.Left := ini_f1.ReadInteger('frmUser','left',10);
 frmUser.Top := ini_f1.ReadInteger('frmUser','Top',10);
 frmUser.Width := ini_f1.ReadInteger('frmUser','Width',200);
 frmUser.Height := ini_f1.ReadInteger('frmUser','Height',400);
 frmUser.Name:='frmUser';
 frmUser.Show;
for i:=0 to ListBox.Count-1 do
begin
  //ini_f1.ReadSection(ListBox1.Items[i],ListBox2.Items);
   if Pos('button',ListBox1.Items[i])>0 then
   begin
    btnUser:=TButton.Create(Application);//
    btnUser.Parent:=?;//как подставить форму из ini - файла
    btnUser.Left := ini_f1.ReadInteger(ListBox1.Items[i],'left',10);
    btnUser.Top := ini_f1.ReadInteger(ListBox1.Items[i],'Top',10);
    frmbtnUserUser.Width := ini_f1.ReadInteger(ListBox1.Items[i],'Width',40);
    btnUser.Height := ini_f1.ReadInteger(ListBox1.Items[i],'Height',25);
    btnUser.Name:='frmUser';
   end;
end;
end;