;CONST
Keyeventf_keyup: Longint= 2; {BYTE suffirait peut-être}
Vk_lmenu: Longint= $A4;
Vk_numpad0= $60;
PROCEDURE Sendchars(Vschars:String);
VAR
I:BYTE;
Sasc: String;
Iasc:BYTE;
Nkey: Longint;
Begin
I:=1;
Iasc:=1;
FOR I:=1 TO Length(Vschars) DO
Begin
Keybd_event( Vk_lmenu, 0, 0, 0);
Sasc:= '0'+Inttostr(Ord(Copy(Vschars,I,1)[1]));
FOR Iasc:= 1 TO Length(Sasc) DO
Begin
Nkey:= Vk_numpad0 + Strtoint(Copy(Sasc,Iasc,1));
Keybd_event(Nkey, Mapvirtualkey(Nkey, 0), 0, 0);
Keybd_event(Nkey, Mapvirtualkey(Nkey, 0), Keyeventf_keyup, 0);
End;
Keybd_event(Vk_lmenu, 0, Keyeventf_keyup, 0);
End;
End;