Need Help My Text Typer

[eoauto]

In Scar 3.13 I Use This To Type My Text In Logins Ect,..
But n scar Versions+ like 3.22 it wont work can u give me a rewrite that would work
or tell me whats the diff or prob it is.. this is only reason i dont right scripts in new 1 yet
http://eoauto.proboards.com is my site if u can help me  post reply here or join my site and help i make all eo scripts for lots

Code: [Select]

Procedure TypeIn(Input:String);
Var Key,C:Integer; Str,Check:String; Shift:Boolean; Begin
If(C>0)Then Begin Str:=LowerCase(Input);
End Else Begin Str:=Input;End;
Check:='ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()~_+{}:"<>?';
For Key:=1 To Length(Str)
Do Begin C:=Pos(StrGet(Str,Key),Check); Shift:=(C>0);
If(Shift)Then Begin KeyDown(16);End;
KeyDown(GetKeyCode(StrGet(Str,Key)));Wait(15);
KeyUp(GetKeyCode(StrGet(Str,Key)));
If(Shift)Then Begin KeyUp(16);End;Wait(10);End;End;
TypeIn('What Ever');