如何根据一个对象的句柄获取该对象的实例呢？(100分)

如何根据一个对象的句柄获取该对象的实例呢？
比如通过Application.Handle来获取Application的实例。
请高手指教！！[]

说明得不太详细！随便举个便子吧………以QQ 为例！以往我们在聊天时将说的话写好后，
按CTRL+ENTER 键就可以发送消息给对方！
现在我们在DELPHI 中通过编程实现此功能……如下：
1、打开自己的QQ 程序，将要说的话写好后放在那边！
2、打开delphi程序，放一Button1 按钮，编写代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
h: THandle;
begin
h := FindWindow(nil,'发送消息');
PostMessage(h, WM_KEYDOWN, VK_CONTROL , 0);
PostMessage(h, WM_KEYDOWN, VK_RETURN, $40000000);
end;
3、当运行后单击button1 按钮，刚才在QQ 窗口中的信息就发送出去了………
（思路：春意）

楼上的好像没明白我的意思（也许是我没有说明白），我举个例子吧。我现有一个窗体，
上面有若干控件，我想通过这个窗体的句柄来访问窗体上的控件，不知如何实现？还请楼
上的给予更详细的说明，谢过春意兄！！！[]