Q) How to create TStringList in delphi ?
Ans) procedure GoodTStringListUsing;
    var
      X: TStringList;
      i: Integer;
    begin
      X := TStringList.Create;
      try
        X.Add('Animals');
        X.Add('Flowers');
        X.Add('Cars');
        X.Sort; { Find will only work on sorted lists! }

        Memo1.Clear;
      for i:=0 to X.Count-1 do begin
         Memo1.Lines.Add(X.Strings[i]);
   end;
     finally
       X.Free;
   end;
end;