Foros Club Delphi - Teclado Virtual

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Teclado Virtual (https://www.clubdelphi.com/foros/showthread.php?t=53220)

Hola a todos... Miren, tengo este inconveniente, estoy usando esta funcion

Código Delphi [-]Procedure PulsarTecla(Code: word);
begin
keybd_event(Code, MapvirtualKey(Code, 0),0,0);
keybd_event(Code, MapvirtualKey(Code, 0),KEYEVENTF_KEYUP,0);
end;

...para simular pulsaciones del teclado... el problema es que solo me anda para las letras y teclas como ENTER, TEB, CONTROL, etc. pero no me funciona para un punto (.), coma(,), guion (-)
Alguno sabe en que le estoy errando???
Gracias

Código Delphi [-]procedure SendKeys(lpStr: PChar);
var vk: Word; bScan: Byte;
begin
 if Assigned(lpStr) then
  while lpStr[0] <> #0 do
   begin
    vk := VkKeyScan(lpStr[0]);
    bScan := MapVirtualKey(vk, 0);
    if Boolean(Hi(vk)) then
     keybd_event(VK_SHIFT, $2A, 0, 0);
    keybd_event(vk, bScan, 0, 0);
    keybd_event(vk, bScan, KEYEVENTF_KEYUP, 0);
    if Boolean(Hi(vk)) then
     keybd_event(VK_SHIFT, $2A, KEYEVENTF_KEYUP, 0);
    Inc(lpStr);
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.SetFocus;
 SendKeys('Esta, es una prueba para verificar más de 6 caracteres emulados.'#13':)');
end;

Muchas gracias cHackAll eso era lo que necesitaba, anda joya!!!
Saludos