source: trunk/Demos/Generics/Generics.dpr

program Generics;

uses 
  System, List;
  
type
  TListInteger = TList<Integer>;

var
  List: TList<Integer>;
  I: Integer;
begin
  try
    List := TList<Integer>.Create;
    List.Add(100);
  finally
    List.Free;
  end;
end.