var
  Word: Variant;
begin
  Word := CreateOleObject('Word.Basic');
  with Word do
  begin {Затем следуют "чистые" команды WordBASIC...}
    FileNew('Normal');
    Insert('Это первая строчка'#13);
    Insert('Это вторая строчка'#13);
    FileSaveAs('c:\temp\test.txt', 3);
  end;
end;