begin
showForm;
textField_id := formAddTextField('Введите число', '', 20, TF_NUMERIC);
Grad := formAddTextField('Введите градусы','',20, TF_NUMERIC);
Min := formAddTextField('Введите минуты','',20 , TF_Numeric);
Sec := formAddTextField('Введите секунды','',20, TF_Numeric);
Addcommand (cmdNext);
repeat until GetClickedCommand = cmdNext;
ShowCanvas;
Dmin:=StringtoInteger(FormGetText(Min));
Min:=Dmin/60;
Dsec:=StringtoInteger(FormGetText(Sec));
Sec:=DSec/60;
Sgrad:=StringTointeger(FormGetTExt(Grad));
Grad:=Sgrad+((Dmin/100)+(Dsec/10000));
Вот кусочек кода надо вывести Grad помогите пожалуйста (я не стал выкладывать полностью исходник программы )