Wenn schon, dann heißt das "Frickel"-Lösung.
Ist es aber nicht. Siehe hier :
Delphi-Quellcode:
function TStrings.Add(const S: string): Integer;
begin
Result := GetCount;
Insert(Result, S);
end;
procedure TStrings.Append(const S: string);
begin
Add(S);
end;
Und nu ? Jetzt kommst du. Das ist gereimt.