ass(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation

{$R *.DFM}
｛ 该函数将焦点置于Word,若失败，返回False｝
function SetFocusToWord:boolean;    
var
   f:boolean;
begin
   f:=true;
   if not AppActivate(''文档 1 - Microsoft Word'') then
  {
      字符串内容为：文档空格1空格-空格Microsoft空格Word
   }
   begin
        f:=False;
        MessageDlg(''没找到Word!'',mtError,[mbOk],0); //显示错误
        exit;
   end;
result:=f;
end;
procedure SetFormActive; //该子程序将焦点置回
begin
   Appactivate(''SendToWord'');
   form1.SetFocus;
   form1.Edit1.SetFocus;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   if not SetFocusToWord then exit; //没找到Word，退出
   sendkeys(Pchar(form1.edit1.text),false); //找到了，发送字符串
   SetFormActive;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if not SetFocusToWord then exit; //没找到Word，退出
   sendkeys(''%{F4}'',false);    //发送Alt+F4,关闭Word
   SetFormActive;
end;
end.
该例子只是简单演示一下，实际上大家可以改动激活word的部分（本文查找''文档 1 - Microsoft Word''来实现，
显得有些太简单了。）
Delphi本身也带有与Office协作的一系列控件，但只进行简单的协作，这样不是更简单么？
SendKeys函数的功能很强大，不然Borland也不会在安装盘中提供这个文件。更好的利
SendKeys的设想，就要看各位朋友的了！