Auf 'ABC zugewiesener Wert wird niemals benutzt

[a.def]

Kurze Zwischenfrage bitte.
Ich benutze seit Kurzem eine Thread-sichere Stringlist.
Dort drin gibt es Abschnitte wie diesen hier

Delphi-Quellcode:

function TThreadStringList.Add(const S: string): Integer;
begin
 Result := -1;

 LockList;
 try
  Result := FStringList.Add(S);
 finally
  UnlockList;
 end;
end;

Bei Result := -1; meckert der Compiler selbstverständlich, dass der zugewiesene Wert niemals benutzt wird.
Wie bekomme ich diese Meldung weg, ohne {$WARNINGS OFF} verwenden zu müssen?
Wenn ein Eintrag in die Liste geschrieben wird, wird der entsprechende Index zurückgeliefert. Daher frage ich mich, wieso da überhaupt -1 zugewiesen wird.

[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;

[himitsu]

Wenn es eine Exception gibt, dann gibt es auch kein Result. (das wird quasi verworfen)
Try-Finally fängt keine Exceptions ab, womit die Funktion demnach abraucht.

Also entweder es knallt und das Result ist egal
oder der Code kommt immer bei beiden Result := ...; vorbei, womit die erste Zuweisung folglich niemals verwendet wird.