procedure TForm1.Button1Click(Sender: TObject);
var
H:HWND;
begin
H:=GetNextWindow(Application.Handle,GW_HWNDNEXT);
SetForeGroundWindow(H);
keybd_event(VK_CONTROL,0,0,0);
keybd_event(Byte('V'),0,0,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
keybd_event(Byte('V'),0,KEYEVENTF_KEYUP,0);
end;

だめね・・・これじゃ貼付が上手くいかないわ・・・どうすればいいのかしら？