Canvas.Polygon und Dynamisches Array of TPoint

[Bummi]

Kompiliert und läuft beides von D7 bis Delphi XE,
ich weiß leider nicht was bei Dir klemmt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Type THolder = record
      Polygon : array of TPoint;
      HolderPointCount : integer;
      HolderBrushColor : TColor;
      HolderPenColor : TColor;
      HolderPenWidth : TColor;
end;
var

 i:Integer;
......
......

FHolders : array of THolder;

begin

Canvas.Polygon(FHolders[i - 1].Polygon);

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
type
 TP=Array of TPoint;
 var
  p:TP;
begin
  SetLength(p,4);
  p[0].X := 10;
  p[0].Y := 10;
  p[1].X := 100;
  p[1].Y := 10;
  p[2].X := 100;
  p[2].Y := 200;
  p[3].X := 10;
  p[3].Y := 10;
  Canvas.Polygon(p)
end;