procedure test;
var hobj: Integer;
begin
  // Preparing new object:
  ObjPenWidth[IEV_NEXT_INSERTED_OBJECT] := 5;

  // Want to cancel operation. All I can think of
  // to discard previous preparation is:
  hobj := AddNewObject(True);
  RemoveObject(hobj);

  // To paint some standard object after that
  // without caring about ALL properties:
  ObjKind[IEV_NEXT_INSERTED_OBJECT] := iekBOX;
  ObjPenColor[IEV_NEXT_INSERTED_OBJECT] := clGreen;
  AddNewObject(True);
end;