kursor w pascalu

Jak w pascalu ukryć kursor.

Wyłączamy tak :

procedure kursoroff; assembler; 
asm 
  mov ah, 01h 
  mov ch, 10h 
  mov cl, 00h 
  int 10h 
end; 

Włączamy tak :

procedure kursoron; assembler; 
asm 
  mov ah, 01h 
  mov ch, 07h 
  mov cl, 08h 
  int 10h 
end; 

procedure PokazMysz;
 var r:registers;
 begin
  r.ax:=$0001;
  intr($33,r);
 end;

procedure UkryjMysz;
 var r:registers;
 begin
  r.ax:=$0002;
  intr($33,r);
 end;