[angvelem]

Так же по аналогии рисуешь и последнюю четверть

Код:

  with Image1.Canvas do
  begin
    Pie(0, 0, 200, 200, 100, 100, 100, 50);  // верхняя часть правая
    Pie(0, 0, 200, 200, 100,   0,  50, 100); // верхняя часть левая

    Pie(0, 0, 200, 200, 100, 200, 100, 100); // нижняя часть правая
    Pie(0, 0, 200, 200,   0, 100, 100, 200); // нижняя часть левая
  end;