如何进行粘贴操作

我用DELPHI的粘贴板类
VAR
  brd :TClipBoard;
begin
  brd :=TClipBoard.Create;
  brd.AsText:='aaaaaaaa';
改变当前粘贴板的值以后怎么把当前粘贴板中的值粘贴到当前输入焦点的窗口TClipBoard有没有现有的方法我想现了两种解方法可都不理想
1 获得当前输入焦点的句柄然后再SENDMESSAGE 设置它的值 (但这样如果要粘贴到 IE里的表单就无效了)
2.模拟Ctrl+v键动作可是这样有没有别的办法TClipBoard现有的方法或API