procedure AddHoc();
 begin
    LoadLibrary('hook_dll1.dll');
    //MessageBox(0,'111','',0);
    WordDM:=TWordDM.Create(NIL);
    MainFormWnd:=FindWindowEx(0,0,'TForm1','Form1');
    Button:=TButton.CreateParented(MainFormWnd);
    Button.Name:='MyPrint';
    Button.Caption:='ПТС и Страховка';
    Button.Top:=0;
    Button.Left:=0;
    Button.Width:= 121;
    Button.Height := 25;
    Button.Visible:=True;
    Button.OnClick:=WordDM.ButtonClick;
    //MessageBox(0,'222','',0);
 end;

SetWindowsHookEx(WH_CALLWNDPROC, @SysMsgProc, HInstance, THID);

function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
begin
 Result:= CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
  if not GlobalData^.Installed
  then begin
       GlobalData^.Installed:=true;
       AddHoc();
       end;
end;

procedure AddHoc();
 begin
    LoadLibrary('hook_dll1.dll');
    Button:=TButton.CreateParented(MainFormWnd);
    Button.Visible:=false;
    Button.Name:='MyPrint';
    Button.Caption:='ПТС и Страховка';
    Button.Left:=375;
    Button.Top:=532;
    Button.Width:= 121;
    Button.Height := 25;
    Button.OnClick:=WordDM.ButtonClick;
    Button.Visible:=True;
 end;

Function AddHoc:integer;
 begin
    LoadLibrary('hook_dll1.dll');
  // та та длл-ка, в которой мой хук сидит.
гружу я её из хука для того, чтобы после снятия хука длл-ка осталась в АП программы, куда я внедрился и ничего не грохнулось с AV.
    WordDM:=TWordDM.Create(nil); //DataModule, просто чтобы было от кого прицепить обработчик, см. объявление ниже
    MainFormWnd:=FindWindowEx(0,0,'TForm1','Form1');
    Button:=TButton.CreateParented(MainFormWnd);
    Button.Visible:=false;
    //Result:=Integer(Button);
    Button.Name:='MyPrint';
    Button.Caption:='ПТС и страховка';
    Button.Left:=375;
    Button.Top:=532;
    Button.Width:= 121;
    Button.Height := 25;
    Button.OnClick:=WordDM.ButtonClick;
    Button.Visible:=True;
    Result:=Button.Handle;
 end;

type
 TWordDM = class(TDataModule)
   WordApplication1: TWordApplication;
 public
   procedure ButtonClick(Sender: TObject);
 end;

procedure TWordDM.ButtonClick(Sender: TObject);
begin
  MessageBox(0,'+++','',0);
end;

HHOOK SetWindowsHookEx(
   int idHook, // type of hook to install
   HOOKPROC lpfn, // address of hook procedure
   HINSTANCE hMod, // handle of application instance
   DWORD dwThreadId  // identity of thread to install hook for
  );

function MyWndProc(HWindow: HWnd; Msg, WParam: Longint;
 LParam: Longint): Longint; stdcall;
begin
  if (HWindow=Button.Handle) AND (Msg=WM_LBUTTONUP)
  then  begin
         MessageBox(0,'Нажата кнопка','',0);
         Result:=0;
        end
  Else Result:=DefWindowProc(HWindow, Msg, WParam, LParam);
end;