[angvelem]

Добавь строчку:

Код:

procedure tform1.Draw;
begin
  image1.Canvas.FillRect(image1.ClientRect);
  image1.Canvas.Ellipse (s.x-m.r1,s.y-m.r2,s.x+m.r1,s.y+m.r2) ;
  image1.Canvas.Ellipse(s.x-s.d2,s.y-s.d2,s.x+s.d2,s.y+s.d2);
  image1.Canvas.Ellipse(m.x-m.d2,m.y-m.d2,m.x+m.d2,m.y+m.d2);
end;