Delphi - Polkruh

  Image1.Canvas.Pen.Style := psSolid;
  Image1.Canvas.Ellipse( 100, 100, 200, 200 );
  Image1.Canvas.Pen.Style := psDash;
  Image1.Canvas.Pie( 100, 100, 200, 200, 100, 150, 150, 100 );

Var t:Integer;
begin
  Form1.Canvas.MoveTo(160,200);
  for t:= -90 to 90 do begin
    Form1.Canvas.LineTo( Trunc(Sin(t*Pi/180)*40)+200,Trunc(cos(t*Pi/180)*20)+200);
  end;

  Form1.Canvas.MoveTo(160,100);
  for t:= -90 to 270 do begin
    Form1.Canvas.LineTo( Trunc(Sin(t*Pi/180)*40)+200,Trunc(cos(t*Pi/180)*20)+100);
  end;

  Form1.Canvas.MoveTo(160,100);
  Form1.Canvas.LineTo(160,200);
  Form1.Canvas.MoveTo(240,100);
  Form1.Canvas.LineTo(240,200);

end;

  Image1.Canvas.Pen.Style := psSolid; //nastavíme štýl na neprerušovaný
  Image1.Canvas.Pie( 10, 65, 80, 85, 10, 75, 80, 75 ); //nakreslíme prvú časť podstavy
  Image1.Canvas.Pen.Style := psDot; //nastavíme štýl na bodkovaný...
  Image1.Canvas.Pie( 10, 65, 80, 85, 80, 75, 10, 75 ); //...a nakreslíme druhú časť podstavy
  //cez stred podstavy prechádza ešte jedna nechcená čiara, ktorú prekreslíme bielym perom
  Image1.Canvas.Pen.Style := psSolid;  //nastavíme štýl na neprerušovaný,
  Image1.Canvas.Pen.Color := clWhite; //farbu na bielu
  Image1.Canvas.Pen.Width := 2; //a hrubku na 2
  Image1.Canvas.MoveTo(9,75); //presunieme pero na správne miesto
  Image1.Canvas.LineTo(79,75); //a kreslíme bielu čiaru
  //zvyšok je už myslím pohoda
  Image1.Canvas.Pen.Color := clBlack;
  Image1.Canvas.Pen.Width := 1;
  Image1.Canvas.Pen.Style := psSolid;
  Image1.Canvas.Ellipse(10,5,80,25);
  Image1.Canvas.MoveTo(10,15);
  Image1.Canvas.LineTo(10,75);
  Image1.Canvas.MoveTo(80,15);
  Image1.Canvas.LineTo(80,75);

http://www.upnito.sk/imggal.php?viewGallery=e7c5223ed5bb23b565269be71ca5e749