procedure TForm1.BitBtn1Click(Sender: TObject);
  var i : TImage; // Image zum Anzeigen dees Kreises
      j : Integer; // Schleifenvariable
      r : Integer; // Radius
      x, y : Real; // x und y Werte des Kreises
begin
  // Parameter setzen
  i:=Image1;
  r:=i.Width div 2;

  // Berechnungen
  for j := 0 to 360 do
    begin
      x:=cos(DegToRad(j)) * r + i.Width / 2;
      y:=sin(DegToRad(j)) * r + i.Height / 2;

      i.Canvas.LineTo(Round(x), Round(y));
    end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
  var i : TImage;
begin
  i:=Image2;

  i.Canvas.Ellipse(0, 0, i.Width, i.Height);
end;