TStringList.Capacity

procedure Test_Capacity;
var
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  try
    TestObj.Add('Igel');
    TestObj.Add('Rabe');
    TestObj.Add('Schlange');
    if TestObj.Capacity <> TestObj.Count 
      then raise ('Test_Capacity error')
      else showmessage(TestObj.DelimitedText);
  finally
    TestObj.free;
  end;
end;