[NumLock]

Код:

procedure TForm1.FormPaint(Sender: TObject);
var
  R: TRect;
begin
  R:=GetClientRect;    
  Canvas.Pen.Color:=clBlue;
  Canvas.Brush.Color:=clRed;
  Canvas.Pie(R.Left, R.Top, R.Right, R.Bottom,
    R.Right, R.Top, R.Left, R.Top);
  Canvas.Brush.Color:=clGreen;
  Canvas.Pie(R.Left, R.Top, R.Right, R.Bottom,
    R.Left, R.Bottom, R.Right, R.Bottom);
  Canvas.Brush.Color:=clYellow;
  Canvas.Pie(R.Left, R.Top, R.Right, R.Bottom,
    R.Left, R.Top, R.Left, R.Bottom);
  Canvas.Brush.Color:=clAqua;
  Canvas.Pie(R.Left, R.Top, R.Right, R.Bottom,
    R.Right, R.Bottom, R.Right, R.Top);
end;

углы для 3-х секторов сам высчитывай)