CalculatePentagonPoints

procedure CalculatePentagonPoints(

  const PentagonRect: TRect;

  var P1: TPoint;

  var P2: TPoint;

  var P3: TPoint;

  var P4: TPoint;

  var P5: TPoint

);