program Calk;
var ch1,ch2,ress,ch11,ch22,res:integer;
// ch11,ch22,res:real;
cmdr:command;
chislo1,chislo2:string;
begin
ShowForm;
ch1:=FormAddTextField('Первое число','1.0',50,TF_NUMERIC);
ch2:=FormAddTextField('Второе число','2.0',50,TF_NUMERIC);
cmdr:=createCommand('Решить',CM_SCREEN,1);
addCommand(cmdr);
repeat
until GetClickedCommand = cmdr;
chislo1:=formGetText(ch1);
chislo2:=formGetText(ch2);
ch11:=StringToInteger(chislo1);
ch22:=StringToInteger(chislo2);
res:=ch11+ch22;
ress:=FormAddTextField('Результат:',IntegerToString(ress),50,TF_NUMERIC);
delay(5000);
end.
В пример складываю 10+2
Результатом является 0
почему неработает команда