[moo2k]

Код:

var
summa:integer;
a:string
b:string;
begin
a:=ячейка1;
b:=ячейка2;
summa:=StrToInt(a)+StrToInt(b);
ShowMessage('Сумма= ' + IntToStr(summa));
end;