Catch key event in ole window

Hi everybody
How to catch keystrokes event of an Ole automation window in a delphi
application
thanks a lot