[MartGG]

Форум навел на мысль и я решил написать без процедуры.
Вставил

Код:

  MsWord.ActiveDocument.SaveAs(FileWorda);

- и все заработало

Вот процедура и описание переменных:

Код:

type
  TWord = class
  public
     procedure WSave(Name: string);      // 
  end;

var
  Form1  :TForm1;
  FileWorda :string;
  MsWord    :Variant;

procedure TWord.WSave(Name: string);
begin
  MsWord.ActiveDocument.SaveAs(FileName := Name);
end;

На такой подход руганье!!!
Почему?