Эмуляция клавиш в неактивном окне

[Аникейка]

задача простая, нужно эмулировать нажатия клавиш в неактивных окнах
для этой цели я сейчас использую вот такой код:

procedure EmulateKey(Wnd: HWND; VKey: Integer);
asm
   push 0
   push edx
   push 0101H
   push eax
   push 0
   push edx
   push 0100H
   push eax
   call PostMessage
   call PostMessage
end;

но вот беда в том что в ассемблере я ни "бум-бум". а данный код
работает глючно дублируя необходимые клавиши. просьба помочь
довести до ума данный код.

также вопрос, каким образом используя аналогичный метод эмулировать
"зажимание" клавиш? например чтобы отправить в окно комбинацию
shift+1 или alt+z нужен пример кода.