program Raschet;
var
a1, a2, a3, b1, b2, b3, c1, c2, c3, X : Integer;
Result : string;
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 until GetClickedCommand = cmdNext; //берём текст, введёный пользователем
X:=a1*b2*c3+a2*b3*c1+a3*b1*c2-a3*b1*c3-a1*b3*c2;
Result := FormGetText(X); //выводим информацию на дисплей
ShowTextBox('Ответ:',Result , 200, TF_NUMERIC);
cmdExit := CreateCommand('Exit', CM_EXIT, 1);
AddCommand(cmdExit);
repeat delay(100);
until GetClickedCommand = cmdExit;
end.
вот что я написал, но оно ничего не выводит...в чем проблема?