procedure Ellipse4Farben(cav: TCanvas; iLeft, iTop, iW, iH: integer);
var
iHalbW, iHalbH : integer;
begin
iHalbW := iW div 2;
iHalbH := iH div 2;
with cav do
begin
Brush.Color := clSilver;
Ellipse(iLeft, iTop, iLeft + iW, iTop+ iH);
Pen.Color := clRed;
Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft + iW, iTop + iHalbH, iLeft + iHalbW, iTop);
Pen.Color := clYellow;
Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft + iHalbW, iTop, iLeft, iTop + iHalbH);
Pen.Color := clGreen;
Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft, iTop + iHalbH, iLeft + iHalbW, iTop + iH);
Pen.Color := clAqua;
Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft + iHalbW, iTop + iH, iLeft + iW, iTop + iHalbH);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Ellipse4Farben(image1.Canvas, 33, 50, 121, 81);
end;