Auf 'ABC zugewiesener Wert wird niemals benutzt

[nahpets]

Einfach die Zeile entfernen.

Oder

Delphi-Quellcode:

function TThreadStringList.Add(const S: string): Integer;
begin
 LockList;
 try
  try
    Result := FStringList.Add(S);
  except
   on e : Exception do begin
     // Bei Bedarf weitere Fehlerbehandlung.
     Result := -1;
   end;
  end;
 finally
  UnlockList;
 end;
end;