DrawStar example for Delphi

procedure TForm1.DrawStarClick(Sender: TObject);
var
   ptCenter: TPoint;
begin
   ptCenter.x:= Trunc(LEADImage1.BitmapWidth /2);
   ptCenter.y:= Trunc(LEADImage1.BitmapHeight /2);

   LEADImage1.DrawStar ( ptCenter, 5, Trunc(LEADImage1.BitmapWidth/2), Trunc(LEADImage1.BitmapHeight/2), 50, 0, 0, 0, 0, 0, 0, RGB(255, 0, 255), RGB(0, 255, 255), 100, STR_INSIDE );
end;