unit tiGUIUtils; {$mode objfpc}{$H+} interface uses Classes ; // Mouse cursor routines // function tiAutoWaitCursor: IUnknown; // function tiAutoCursor(ACursor: TCursor = crHourglass): IUnknown; implementation end.