Enviando caracteres para outra aplicação

Var
myHandle : THandle;
begin
myHandle:= FindWindow( 'MyAppClass', 'MyAppCaption');
if myHandle <> 0 then
PostMessage( myHandle, WM_KeyDown, myCharCode, 0 );
end;