непомогло...в ємуляторе все нормально, а в мобиле не хочет...
вот полный код программы:
program Raschet;
var
a1, a2, a3, b1, b2, b3, c1, c2, c3:integer;
a1i, a2i, a3i, b1i, b2i, b3i, c1i, c2i, c3i : string;
a1o, a2o, a3o, b1o, b2o, b3o, c1o, c2o, c3o, X:real;
cmdNext, cmdexit : command;
begin
showForm;
a1 := FormAddTextField('a1=', '', 20, TF_NUMERIC);
a2 := FormAddTextField('a2=', '', 20, TF_NUMERIC);
a3 := FormAddTextField('a3=', '', 20, TF_NUMERIC);
b1 := FormAddTextField('b1=', '', 20, TF_NUMERIC);
b2 := FormAddTextField('b2=', '', 20, TF_NUMERIC);
b3 := FormAddTextField('b3=', '', 20, TF_NUMERIC);
c1 := FormAddTextField('c1=', '', 20, TF_NUMERIC);
c2 := FormAddTextField('c2=', '', 20, TF_NUMERIC);
c3 := FormAddTextField('c3=', '', 20, TF_NUMERIC);
cmdNext := createCommand('Next', CM_OK, 1); AddCommand(cmdNext);
repeat delay(200);
until GetClickedCommand = cmdNext;
a1i:=FormGetText(a1);
a2i:=FormGetText(a2);
a3i:=FormGetText(a3);
b1i:=FormGetText(b1);
b2i:=FormGetText(b2);
b3i:=FormGetText(b3);
c1i:=FormGetText(c1);
c2i:=FormGetText(c2);
c3i:=FormGetText(c3);
a1o:=StringToInteger(a1i);
a2o:=StringToInteger(a2i);
a3o:=StringToInteger(a3i);
b1o:=StringToInteger(b1i);
b2o:=StringToInteger(b2i);
b3o:=StringToInteger(b3i);
c1o:=StringToInteger(c1i);
c2o:=StringToInteger(c2i);
c3o:=StringToInteger(c3i);
X:=a1o*b2o*c3o+a2o*b3o*c1o+a3o*b1o*c2o-a3o*b2o*c1o-a2o*b1o*c3o-a1o*b3o*c2o;
ShowTextBox('Ответ:',''+X , 200, TF_NUMERIC);
cmdExit := CreateCommand('Exit', CM_EXIT, 1);
AddCommand(cmdExit);
repeat delay(100);
until GetClickedCommand = cmdExit;
end.
мож что есть неправильное, и вобще из-за чего это может быть?