Cursor

[COLOR=#000080]//Выключение курсора[/COLOR]
procedure TForm1.Button1Click(Sender: TObject);
var  CState: Integer;
begin  
CState := ShowCursor(True);  
while Cstate >= 0 do    
Cstate := ShowCursor(False);
end;
 
[COLOR=#000080]//Включение курсора[/COLOR]
procedure TForm1.Button2Click(Sender: TObject);
var  Cstate: Integer;
begin  
Cstate := ShowCursor(True);  
while CState < 0 do    
CState := ShowCursor(True);
end;