[glorx]

итак напишу что нужно получить:
1 форма: там идут сторонние расчеты и вводится N - кол-во режимов, и есть кнопка при нажатии на которую появляется форма с вводом данных для N-ого режима!! Данные вводятся нажимается кнопка, форма появляется вновь если опытов(режимов )>1... в конце в таблицу записываются все полученные значения для всех посчитаных режимов и стоятся графики!!

Что получилось:
Это обработчик для кнопки первой формы:

Код:

procedure TForm1.btn6Click(Sender: TObject);
var i,n,D:Integer;
Lt,Ld,Zt,Zd,Ft,Fd,U,E,H,fod,fi1,e1,n1:real;
begin
n:=StrToInt(Form1.lbledt23.text);
//============запускаем цикл====================
for d:=1 to n do
    begin
//===============================
  fod:=strtofloat(Form1.lbledt20.Text);
  for i:=1 to n do
    begin
      EnterFrm.ShowModal;
      EnterFrm.Caption:='Введите данные '+IntToStr(n)+' режима';
    // EnterFrm.lbl2.Caption:=IntToStr(i);
      Lt:=StrTofloat(EnterFrm.lbledt21.text);
     Ld:=StrTofloat(EnterFrm.lbledt22.text);
     Zt:=StrTofloat(EnterFrm.lbledt28.text);
     Zd:=StrTofloat(EnterFrm.lbledt29.text);
     Ft:=Lt*165; //усилие тормоза
     Fd:=Ld*195; // усилие двигателя
      U:=Ft/2*fod; // коэф.тяги
      E:=(1-(Zt/Zd))*100; // скольжение
     H:=((Ft*Zt)/(Fd/Zd))*100; // КПД
   
     
          Form1.strngrd1.Cells[1,n]:=floatToStr(Ft);
     Form1.strngrd1.Cells[2,n]:=floatToStr(Fd);
     Form1.strngrd1.Cells[3,n]:=floatToStr(U);
     Form1.strngrd1.Cells[4,n]:=floatToStr(E);
     Form1.strngrd1.Cells[5,n]:=floatToStr(H);
    end;
 end;

end;

что нужно прописывать в обработчике кнопки для второй формы, чтобы данные вводилиь n раз??

еще сделал StringGrid так вот записывает только последний опыт!!

Что не так??кроме кривых рук конечно=)