temporarily changes the cursor

uCursor.pas

unit uCursor;

interface

uses Controls, Forms;

type
 TTmpCursor = class(TInterfacedObject, IInterface)
 private
   FCursor: TCursor;
 public
   constructor Create(const ACursor: TCursor);
   destructor Destroy; override;
   class function SetCursor(const ACursor: TCursor = crHourGlass): IInterface;
 end;

implementation

{ TTmpCursor }

constructor TTmpCursor.Create(const ACursor: TCursor);
begin
  inherited Create();
  FCursor := Screen.Cursor;
  Screen.Cursor := ACursor;
end;

destructor TTmpCursor.Destroy;
begin
  if Assigned(Screen) then
    Screen.Cursor := FCursor;
  inherited Destroy();
end;

class function TTmpCursor.SetCursor(const ACursor: TCursor): IInterface;
begin
  Result := TTmpCursor.Create(ACursor);
end;

end.

Usage;

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  TTmpCursor.SetCursor();  
  // Do something  
end;