Sample Code:
<code>
var
  animals : TStringList;            // Define our string list variable
  i       : Integer;
begin
  animals := TStringList.Create;
  animals.Add('Cat');
  animals.Add('Mouse');
  animals.Add('Giraffe');
  for i := 0 to animals.Count-1 do ShowMessage(animals[i]); 
  animals.Free;
end;
</code>