// Изменение свойств объекта StarABC
#reference 'D:\Miks\_samples\ABCObjectsLib.dll'
#reference 'System.Drawing.dll'

var z: StarABC;

begin
  z := new StarABC(200,200,190,210,6,System.Drawing.Color.Red);
  for var i:=1 to 20 do
  begin
    Sleep(100);
    z.Count := z.Count + 1;
  end;
  for var i:=1 to 180 do
  begin
    Sleep(10);
    z.Angle := z.Angle + 1;
  end;
end.