Du bist da wohl klein wenig durcheinander gekommen. Bei TStringList steht in SetCapacity etwas (zumindest in D7). Bei TStrings nicht. Das ist der Vorfahr von TStringList.
Delphi-Quellcode:
procedure TStrings.SetCapacity(NewCapacity: Integer);
begin
// do nothing - descendents may optionally implement this method
end;
procedure TStringList.SetCapacity(NewCapacity: Integer);
begin
ReallocMem(FList, NewCapacity * SizeOf(TStringItem));
FCapacity := NewCapacity;
end;