[Delphi] Создание отчета DDE и Word

[Reaper052]

Ситуация следующая, есть шаблон для отчета, нужно чтобы этот шаблон открывался, обзывался другим именем и сохранялся соответственно.

Я расположил компонент tddeclientconv и просвоил ему следующие свойства: Name = DDE
ServiceApplication = c:\Program Files\Microsoft Office\OFFICE15\WINWORD.EXE
ConnectMode = ddeManual
DdeService = WinWord

Далее для одной из кнопок компонента TMainMenu есть следующий код.

procedure TForm2.N10Click(Sender: TObject);
  var
Command,
NameTemplate,
NameResult: string;
Macros: PChar;
i, j: integer;

begin

NameTemplate := GetCurrentDir + '\shablon.doc';
TimeSeparator := '_';
NameResult := GetCurrentDir + '\Прайс ' + DateToStr(Now) + ' '
+ TimeToStr(Now) + '.doc';


Command := '[FileOpen "' + NameTemplate + '"][StartOfDocument]';
Command := Command + '[FileSaveAs "' + NameResult + '"]';

Command := Command + '[EditBookmark.name = "Дата", .Goto]';

Command := Command + '[Insert "' + DateToStr(Now) + '"]';

Command := Command + '[EditBookmark.name = "Поле", .Goto]';
Command := Command + '[Insert " "]';

with DM, Tovar do

begin
 First;
Command := Command + '[PrevCell][PrevCell]';
for I := 0 to RecordCount - 1 do
begin

Command := Command + '[NextCell]';
for j := 0 to FieldCount - 3 do
begin

Command := Command + '[NextCell]';

Command := Command + '[Insert "' + Fields[j].AsString + '"]'
end;
NEXT;
end;

Command := Command + '[EndOfDocument]';
Command := Command + '[FileSave]';
Macros := PChar(Command);
DDE.ExecuteMacro(Macros, false);
 end;
 end;

Однако при нажатии ничего не происходит, хотя буквально секунду что-то делает (мышка превращается в песочные часы.)

Делал по мануалу, в чем проблема не могу понять, хотя я не нашел в коде момент обращения к DDE, только закрытие.

[Reaper052]

Проблема решена.