Value-Abruf aus Tstringlist beinhaltet "=" -> Fehler

[shmia]

Was hältst du von Zwischenvariablen?
Könnte doch sein, dass man damit leichter Debuggen kann,oder?

Delphi-Quellcode:

procedure AddiereStringListen(const Quelle, Ziel: TStrings); 
var 
  i: integer; 
  qname : string;  // Zwischenvariable
begin 
  for i:=0 to Quelle.count-1 do 
  begin
    qname := Quelle.Names[i];
    if Ziel.Values[qname] = '' then 
      Ziel.Values[qname] := Quelle.Values[qname] 
    else 
      Ziel.Values[qname]:= inttostr(strtointDef(Ziel.Values[qname],0) + 
      strtointDef(Quelle.Values[qname],0)); 
  end;
end;