kruhy : array [1..10] of TPoint; // uhel 1 a uhel 2

// ====== FORM CREATE ========================
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 Randomize;
 // nastavení úhlů
 for i:=2 to 10 do
  begin
   kruhy[i].x:=Random(36)*10; // první úhel - náhodně
   kruhy[i].y:=kruhy[i].x-10; // druhý úhel
  end;
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
var cx,cy,pol:integer;
pt1,pt2,pt3,pt4:TPoint;
i:integer;
begin
 // vymazat pozadí
 DXDraw1.Surface.Fill(clWhite);

 // střed DXDraw...
 cx:=DXDraw1.SurfaceWidth div 2;
 cy:=DXDraw1.SurfaceHeight div 2;

for i:=2 to 10 do
 begin
   // poloměr kruhu
   Pol:=i*10;

   // začátek "díry" v kruhu
   pt1.x:=Trunc(cos(DegToRad(kruhy[i].x))*pol);
   pt1.y:=Trunc(sin(DegToRad(kruhy[i].x))*pol);

   // konec "díry" v kruhu
   pt2.x:=Trunc(cos(DegToRad(kruhy[i].y))*pol);
   pt2.y:=Trunc(sin(DegToRad(kruhy[i].y))*pol);

 // sudý kruh otáčíme naopak než lichý...
 if i mod 2 = 1 then
  begin
   Dec(kruhy[i].x,1);
   Dec(kruhy[i].y,1);
  end
 else
  begin
   Inc(kruhy[i].x,1);
   Inc(kruhy[i].y,1);
  end;

 // posuneme body na naše souřadnice - cx,cy...
 pt1.x:=pt1.x+cx;
 pt1.y:=cy-pt1.y;
 pt2.x:=pt2.x+cx;
 pt2.y:=cy-pt2.y;

 with DXDraw1.Surface.Canvas do
  begin
   Brush.Style:=bsClear;
   Pen.Color:=clBlack;

   // vlastní kreslení oblouku
   Arc(cx-pol,cy-pol,cx+pol,cy+pol,pt1.x,pt1.y,pt2.x,pt2.y);

  end;

end; // end for

 // nakonec ještě otazník
 with DXDraw1.Surface.Canvas do
  begin
   with Font do
    begin
      COlor:=clBlack;
      Name:='Arial';
      Size:=10;
      Style:=[fsBold];
    End;

   TextOut(cx-3,cy-7,'?');
   release;    // !!
  end;

 // a už jen flip... 
 DXDraw1.FLip;
end;

// ====== FORM CREATE ========================
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
alpha,a,pol:integer;
begin
 Randomize;
 // nastavení úhlů
 for i:=2 to 10 do
  begin
   kruhy[i].x:=Random(36)*10; // první úhel - náhodně

   // kruhový oblouk                     .
   //      2pi * r                       .
   // a = ---------  * alpha             .
   //        360                         .

   a:=20;  // velikost průchodu bludiště
   pol:=i*10;
   alpha:=Trunc(a/((2*pi*pol)/(360)));

   kruhy[i].y:=kruhy[i].x-alpha; // druhý úhel
  end;
end;

...
   // p4 - čára mezi kruhy
   pt4.x:=Trunc(cos(DegToRad(kruhy[i].y))*(pol+10));
   pt4.y:=Trunc(sin(DegToRad(kruhy[i].y))*(pol+10));
...

...
 // posuneme body na naše souřadnice - cx,cy...
 pt4.x:=pt4.x+cx;
 pt4.y:=cy-pt4.y;
...

...
   // kreslení čáry
   if i <> 10 then
    begin
     MoveTo(pt2.x,pt2.y);
     LineTo(pt4.x,pt4.y);
    end;
...

   // barva podle vzdálenosti od středu...
   Pen.Color:=RGB(i*22,i*22,i*22);