1:
2:
3:
4:
5:
6:
7:

with image1.Canvas do
begin
  MoveTo(0,0);
  LineTo(image1.Width div 3,image1.Height);
  MoveTo(0,0);
  LineTo(image1.Width,image1.Height div 3);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

uses
  Math;
// ...
var
  rot, r: Single;
  x, y: Integer;
begin
  r := Sqrt(Sqr(Image1.Width) + Sqr(Image1.Height div 3));
  rot := 0;
  Image1.Canvas.MoveTo(Image1.Width, Image1.Height div 3);
  repeat
    rot := rot + 0.05;
    x := Round(Cos(GradToRad(rot)) * r);
    y := Round(Sin(GradTorad(rot)) * r);
    if (y >= Image1.Height div 3) and (y <= Image1.Height) then
      Image1.Picture.Bitmap.Canvas.LineTo(x, y);
  until rot >= 90; 
end;                    

1:
2:
3:
4:
5:
6:
7:

var r : Integer;
begin
  with image1.Canvas do
    begin
      r := Round(Sqrt(Sqr(Image1.Width) + Sqr(Image1.Height div 3)));
      pie(-r,-r,r,r,image1.Width div 3,image1.Height,image1.Width,image1.Height div 3);
    end;