[Alegun]

Код:

var
 sl: TStrings;
 i, j, b: integer;
begin
 sl:= TStringList.Create;
 sl.Assign(Memo1.Lines);
 for i := 0 to sl.Count-1 do
  begin
   b:= 0;
   for j := 1 to Length(sl[i]) do
    Inc(b, StrToInt(sl[i][j]));
   sl[i]:= sl[i] + ' = ' + IntToStr(b);
  end;
 Memo1.Lines.Assign(sl);
 sl.Free;
end;