program example;

uses SysUtils, spinner;

var
   spin	: TSpinner;
begin
   spin := TSpinnerNew(TSpinners.DOTS9, 'Waiting for 3 seconds');
   sleep(3000);
   TSpinnerStop(spin);
   TSpinnerClean(spin);
end.