PROCEDURE Del; {T.Yabe 2007/04/08 1:55}
VAR
	h:handle;
	pX,pY:REAL;

BEGIN
h:=FSActLayer;
IF h<>NIL THEN
	BEGIN
		DeleteObjs;
		ReDraw;
	END
ELSE
BEGIN
	REPEAT
			GetPt(pX, pY);
			h:=PickObject(pX, pY);
			IF h<>NIL THEN DelObject(h);
			ReDraw;
	UNTIL h=NIL;
	END;
END;
RUN(Del);