Пример DDE и WordPerfect

procedure TForm1.PrintSave(Doc: string);
var
  ProdDoc, ArchDoc: string;
  WPCommands: TStringList;
begin
  ProdDoc := ProdDrive + Doc;
  ArchDoc := ArchDrive + Doc;

  WPCommands := TStringList.Create;
  with WPCommands do
  begin
    Add('FileOpen(Filename:"' + ProdDoc + '")');
    Add('FileSave(Filename:"' + ProdDoc + '";ExportType:3;Overwrite:1)');

    Add('PrintCopies(NumberOfCopies:2)');
    Add('PrintCopiesBy(CopiesBy:1) ');
    Add('PrintFullDoc() ');
    Add('DocCompare(FileName:"' + ArchDoc + '";CompFlags:1) ');
    Add('FileSave(Filename:"' + EMailDoc + '";ExportType:3;Overwrite:1');

    Add('Close(Save:0) ');
  end;

  if PDDE.ExecuteMacroLines(WPCommands, True) then
  begin
    log('WPCommand Worked!')
      {  Теперь необходимо подождать WP, чтобы завершить команду... }
  end
  else
    log('Ошибка WPCommand!');

  WPCommands.Free;
end;