I am following the instructions for ole automation server in the Delphi3
user guide pg 25-4. Clicking my OK button, I can run Word in the
background, insert text, and save the file. However, if I click the ok
button again, it says it cannot save to an OPEN document.

??HOW DO I CLOSE THE DOCUMENT??  I have tried v.fileclose, v.close; all
I get are errors.

I need to write a loop that will open, close, email, overwrite email.

Thanks in advance.
Christine McIntyre

CMcInt...@FMAS.com

procedure TForm1.Button1Click(Sender: TObject);
var v:variant;
begin
  try
   v:=GetActiveOleObject('Word.Basic'); //if already running use it
  except
   v:=CreateOleObject('Word.Basic');
  end;
   v.FileNew('Normal');
   v.Insert('The mark of a healthy mind'+#13);
   v.Insert('Is freedom from its own ideas.');
   v.FileSaveAs('C:\mydoc.doc');
end;

The moment the variable V goes out of scope, word will be shut down
again