[Kailon]

На попробуй функцию писанную на скорую руку

Код:

function MyPlus(OneStr, TwoStr: String): String;
var
 TempOne, TempTwo, Otvet: String;
 One, Two, Res: Integer;
begin
 TempOne := OneStr + '.';
 TempTwo := TwoStr + '.';
 while (Length(TempOne) <> 0) and (Length(TempTwo) <> 0) do
 begin
  One := StrToInt(Copy(TempOne,1,Pos('.',TempOne) - 1));
  Two := StrToInt(Copy(TempTwo,1,Pos('.',TempTwo) - 1));
  Res := One + Two;
  Otvet := Otvet + IntToStr(Res) + '.';
  Delete(TempOne,1,Pos('.',TempOne));
  Delete(TempTwo,1,Pos('.',TempTwo));
 end;
 Delete(Otvet,Length(Otvet),1);
 Result := Otvet;
end;

ограничения: должно быть равное кол-во групп и использовать только точки в качестве разделителя групп