Como criar um Teclado Virtual utilizando Delphi

Basicamente, o que você observa em um teclado virtual quando o utiliza?
- sempre fica sobre as janelas e programas abertos.
- não recebe o foco ao clicar nas teclas.
- envia teclas para o objeto ativo.

Sabendo disso, para criar um teclado virtual em Delphi, vamos precisar fazer o seguinte:

1º Definir a propriedade FormStyle do Form para fsStayOnTop.
2º Incluir o código abaixo no projeto.

private
  { Private declarations }
protected
  { Protected declarations }
  procedure CreateParams(var Params: TCreateParams); override;
public
  { Public declarations }
end;

//alterar TForm1 para o nome do seu formulário
procedure TForm1.CreateParams(var Params: TCreateParams);
const
  WS_EX_NOACTIVATE = $8000000;
begin
  inherited;
  Params.ExStyle := Params.ExStyle + WS_EX_NOACTIVATE;
end;

3º Utilizar o comando keybd_event, conforme os exemplos:

//teclas normais
keybd_event(Ord('A'), 0, 0, 0); //pressiona tecla [A]
keybd_event(Ord('A'), 0, KEYEVENTF_KEYUP, 0); //libera tecla [A]
//ou
keybd_event(65, 0, 0, 0); //pressiona tecla [A]
keybd_event(65, 0, KEYEVENTF_KEYUP, 0); //libera tecla [A]

//teclas especiais
keybd_event(VK_BACK, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); //pressiona Backspace
keybd_event(VK_BACK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); //libera Backspace

//simular letra maiúscula
keybd_event(VK_LSHIFT, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); //pressiona Shift esquerdo
keybd_event(65, 0, 0, 0); //pressiona tecla [A]
keybd_event(65, 0, KEYEVENTF_KEYUP, 0); //libera tecla [A]
keybd_event(VK_LSHIFT, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); //libera Shift esquerdo

//simular acento agudo
keybd_event(219, 0, 0, 0); //pressiona acento agudo
keybd_event(219, 0, KEYEVENTF_KEYUP, 0); //libera acento agudo
keybd_event(65, 0, 0, 0); //pressiona tecla [A]
keybd_event(65, 0, KEYEVENTF_KEYUP, 0); //libera tecla [A]

Com isso você já consegui criar seu próprio teclado virtual.

Google Docs

Não se esqueça de liberar uma tecla após pressioná-la.

Tabela ASCII
Tabela Virtual Key

http://www.devmedia.com.br/forum/viewtopic.asp?id=367715