uses System.SysUtils,
  System.Generics.Collections;

function ToText(List: TList<Integer>): string;
var
  Number: Integer;
begin
  Result := '';
  for Number in List do
    Result := Result + Number.ToString + ' ';
end;

var
  PrimeNumbers: TList<Integer>;
begin
  PrimeNumbers := TList<Integer>.Create;
  PrimeNumbers.AddRange([2, 5, 7]);

  PrimeNumbers.Add(11);
  //primeNumbers is [2, 5, 7, 11]
  WriteLn(ToText(PrimeNumbers));

  PrimeNumbers.AddRange([13, 17]);
  //primeNumbers is [2, 5, 7, 11, 13, 17]
  WriteLn(ToText(PrimeNumbers));

  PrimeNumbers.Insert(1, 3);
  //primeNumbers is [2, 3, 5, 7, 11, 13, 17]
  WriteLn(ToText(PrimeNumbers));

  //Delete by index, Remove by value
  PrimeNumbers.Delete(2);
  //primeNumbers is [2, 3, 7, 11, 13, 17]
  PrimeNumbers.Remove(17);
  //primeNumbers is [2, 3, 7, 11, 13]
  WriteLn(ToText(PrimeNumbers));

  PrimeNumbers.Clear;
  //primeNumbers is []
  WriteLn('count is ', PrimeNumbers.Count);
end.