program Test1;

{$mode DELPHI}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes,
  Graphics,
  Indexes
  { you can add units after this };

var
  i   : integer;
  x   : TArrayEx<integer>;
  Bmp : TBitmap;
  CV  : TCanvas;
begin
  WriteLn('Test');

  x.Clear;
  x.Add(1);
  x:=x+[2,3,4];

  WriteLn(x.Count);


  Bmp:=TBitmap.Create;
  Bmp.PixelFormat:=pf32bit;
  Bmp.SetSize(500,500);
  CV:=Bmp.Canvas;
  CV.Brush.Color:=clWhite;
  CV.FillRect(CV.ClipRect);
  CV.Pen.Color:=clRed;
  for i:=50 to 200 do begin
    CV.Line(i*2,50,i*2,450);
  end;
  Bmp.SaveToFile('1.bmp');

  ReadLn;
end.

# ./Test1
Test
4
An unhandled exception occurred at $00000000005DBAAA:
EAccessViolation: Access violation
  $00000000005DBAAA  RAWIMAGE_QUERYDESCRIPTION,  line 182 of include/lclintf.inc
  $0000000000568CA2  QUERYDESCRIPTION,  line 795 of intfgraphics.pas
  $0000000000568C75  QUERYDESCRIPTION,  line 790 of intfgraphics.pas
  $000000000048C06A  RAWIMAGENEEDED,  line 229 of include/custombitmap.inc
  $000000000048C3C5  SETSIZE,  line 313 of include/custombitmap.inc
  $0000000000406A5D  main,  line 30 of Test1.lpr