[reyn90]

А как осуществить тип real? Например вводят 12.23 и 23.12 нужно чтоб сложились

program Calk;

var ch1,ch2,ress:integer;{ch11,ch22,}
    ch11,ch22,res:real;
    cmdr:command;
    chislo1,chislo2:string;
begin
	ShowForm;
	ch1:=FormAddTextField('Первое число','1',50,TF_NUMERIC);
	ch2:=FormAddTextField('Второе число','2',50,TF_NUMERIC);
	cmdr:=createCommand('Решить',CM_SCREEN,1);
	addCommand(cmdr);
	repeat
	until GetClickedCommand = cmdr;

chislo1:=formGetText(ch1);
chislo2:=formGetText(ch2);

	ch11:=StringToReal(chislo1);
               ch22:=StringToReal(chislo2);

res:=ch11+ch22;
ress:=FormAddTextField('Результат:',RealToString(res),50,TF_NUMERIC);
delay(5000);
end.

На выделенные строки паскаль ругается