[Decoding]

Код:

procedure TForm1.FormPaint(Sender: TObject);
const
  Radius = 50;
  cx = 70;       // Координата центра круга по x
  cy = 90;       // Координата центра круга по y
  DotCount = 30; // Кол-во точек на окружности
var
  x, y, i: integer;
begin
   for i := 0 to DotCount-1 do
   begin
      x := cx + Round( Radius * cos( 360/DotCount*i*3.14/180 ) );
      y := cy + Round( Radius * sin( 360/DotCount*i*3.14/180 ) );
      Canvas.Pixels[x,y] := clBlack;
   end;
end;