...
    appWord: TWordApplication;
    docWord: TWordDocument;
...
...
function OpenWord( T : String ) : Boolean;
var Template : OleVariant;
begin
  try
    appWord.Connect;
    if T<>'' then Template := T else Template := EmptyParam;
    docWord.ConnectTo( appWord.Documents.Add( Template, EmptyParam, EmptyParam, EmptyParam ) );
    Result := True;
  except
    Result := False;
  end;
end;

function CloseWord : Boolean;
begin
  try
    appWord.Visible := True;
    docWord.Disconnect;
    appWord.Disconnect;
    Result := True;
  except
    Result := False;
  end;
end;