Delphi графика, сделать чтобы окружности пересекались

[Агата]

Как сделать чтобы эти 2 окружности пересекались, а не закрашивал?
Мне ну жно чтобы была видна линия пересечения
procedure TForm1.Button1Click(Sender: TObject);
var
x,x1,l: Integer;
y,y1,a,a1: Double;
begin
Image1.Picture.Bitmap := TBitmap.Create;
Image1.Picture.Bitmap.Width := Image1.Width;
Image1.Picture.Bitmap.Height := Image1.Height;
Image1.Picture.Bitmap.Canvas.ellipse(0,0,200,200);
Image1.Picture.Bitmap.Canvas.ellipse(100,100,400,400);
end;