Malcolm Poole wrote: > andri tea wrote: >> using variabel >> var >> ... >> poligon : array [1..5] of pointtype; >> ... >> > > Try > poligon : array [1..5] of TPoint; > And to draw the polygon look at TCanvas.PolyBezier I think that Canvas.PolyBezier(poligon, true, true) will probably do what you want. Malcolm