Подвисает при добавлении кода, работа с вордом Опции

[cooler]

procedure TForm4.Button2Click(Sender: TObject);
var FilePath: string;
begin
  Savedialog1.execute;
  FilePath:=ExtractFilePath(GetModuleName(HInstance)) + 'Report.doc';
  Word.Documents.Open(FilePath);
  FindAndReplace('$s1',floattostr(Q));
  FindAndReplace('$s2',floattostr(ggg));
  FindAndReplace('$s3',res);
end;

Вот процедура замещения части текста в готовом шаблоне *.doc
При добавлении кода виснет
Нужно чтобы Пользователь в SaveDialog написал имя файла и сохранился под этим именем уже измененный файл
Закрыть грамотно тоже надо документ и ворд, у меня получается пока только подвешивать

P.S Объект Word и процедура FindAndReplace были использованы отсюда http://www.webdelphi.ru/2010/02/microsoft-word-v-delphi/

Сообщение отредактировано: cooler - 16.05.2011 4:16