procedure TForm1.Button1Click(Sender: TObject);
var
ScreenDC : HDC;
PointA : TPoint;
S_Canvas : TCanvas;
I, LeltP, BottomP, RightP, TopP : integer;
RectA : PRect;
begin
GetCursorPos(PointA);
ScreenDC:=GetDC(0);
S_Canvas:=TCanvas.Create;
with S_Canvas do
begin
Pen.Color:=clBlue;
Pen.Width:=3;
Handle:=ScreenDC;
Brush.Style:=bsClear;
for I := 8 downto 1 do
begin
LeltP:=PointA.X - I * 15;
TopP:=PointA.Y + I * 15;
RightP:=PointA.X + I * 15;
BottomP:=PointA.Y - I * 15;
Ellipse(LeltP, TopP, RightP, BottomP);
Sleep(100);
end;
//InvalidateRect(S_Canvas.Handle, RectA, True);
end;
DeleteDC(ScreenDC);
end;