if menugetselectedindex = Uclon then
begin
ShowForm;
while true do //запускаем бесконечный цикл
begin
okCommand := createCommand('OK', CM_OK, 1);
showForm;
addCommand(okCommand);
Ha:=formaddtextField('Введите HA','',20,TF_Numeric);
Hb:=formaddtextField('Введите HB','',20,TF_Numeric);
Dab:=formaddtextField('Введите Dab','',10,TF_Numeric);
While(getclickedCommand<>okcommand) do
delay (100);
Ha1:=StringToREal(formgettext(Ha),10);
Hb1:=StringToReal(formgettext(Hb),10);
Dab1:=StringToReal(formgettext(Dab),10);
I1:=StringTOReal(formgettext(I),10);
hab1:=StringToReal(formgettext(hab),10);
hab1:=Hb-Ha;
I1:=(hab1/Dab1)*100;
А вот это не пояавляется даже (вопрос почему)