uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,   OleServer, Word97,ActiveX, Word2000, OleCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
   W:TWordApplication;
   D:_Document;
   P:Paragraph;
   FileName:OleVariant;
begin
   CoInitialize(NIL);
   try
      W:=TWordApplication.Create(NIL);
      try
D:=W.Application.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
         P:=D.Paragraphs.Add(EmptyParam);
         P.Range.InsertAfter('Hello Word :-)');
         FileName:='wordemo.doc';

D.SaveAs(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
      finally
         W.Free;
      end;
   finally
      CoUnInitialize;
   end;

end;