arkadaşlar
pascalda yazı imlecini nasıl yok edebiliriz?
bilen birisi varsa yardımcı olsun lütfen
çok acil lazım :)

şimdiden ilgilenen herkese çok tşk ederim

Procedure Kursor(Size:Char);
Var
Regs : Registers;
I    : Integer;
Begin
If Mem[$0000:$0449] = 7
Then
   I := 6
Else
   I := 0;
Regs.Ah := $01;
Case Upcase(Size) Of
    'I' : Begin
            Regs.Ch := $20;
            Regs.Cl := $20;
          End;
    'B' : Begin
            Regs.Ch := $0;
            Regs.Cl := $7+I;
          End;
    'K' : Begin
            Regs.Ch := $6+I;
            Regs.Cl := $7+I
          End;
End;
Intr($10,Regs);
End;

kullanim Kursor (Parametre)
'I' : Kursor İptal
'K' : Kursor Kucuk
'B' : Kursor Buyuk