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