void T4c()
{
for (int n=0;n<100; n++)
{
T4s[0]=StrToFloat(Form1->Edit19->Text);

do
{
T4s[n]=StrToFloat(Form1->ComboBox4->Text);
q=StrToFloat(Form1->StringGrid1->Cells[1][1]);
T5=StrToFloat(Form1->Edit10->Text);
alfa2=StrToFloat(Form1->Edit8->Text);
T4s[n+1]=(q/alfa2)+T5;
Form1->ComboBox4->Text=FloatToStrF(T4s[n+1],ffFixed,7,3);
T3b();
T2b();
lamb1();
lamb2();
lamb3();
alf();
q3();
}
while (T4s[n]-T4s[n+1]<=0.001);

}
}