[look]

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.