Hola , con esto ya quedo:
Código Delphi
[-]
if RS.isKey then
begin
keybd_event(VK_SHIFT, 0, 0, 0);
keybd_event(RS.Key , 0, 0, 0);
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
end
Gracias por la ayuda, cuando termine la aplicacion la subire al foro para compartirla.