var 
  Backup: TIconInfo; 
 
const 
  WhichCursor: Integer = OCR_NORMAL;  // Standard-Kursor (Arrow)
 
// alten Kursor sichern, neuen Kursor wählen 
procedure TForm1.Button5Click(Sender: TObject); 
begin 
  GetIconInfo(LoadCursor(0, MakeIntResource(WhichCursor)), Backup); 
  SetSystemCursor(LoadCursorfromfile('c:\windows\cursors\arrow_rm.cur'), 
    WhichCursor); 
end; 
 
// alten Kursor wieder herstellen 
procedure TForm1.Button6Click(Sender: TObject); 
begin 
  SetSystemCursor(CreateIconIndirect(Backup), WhichCursor); 
end;