Доброго времени дня. Помогите пожалуйста с реализацией задачи. Мой блок программы импортирует текст из MEMO в блокнот, а надо в MS Word.

try
  Fo_First.Memo2.Lines.LoadFromFile(Folder+'mo01061.txt');
except
  on EFOpenError do
  begin
    tryexcept:=tryexcept+chr(13)+'mo01061.txt';
    tryexcepterror:=1;
  end;
end;
if tryexcepterror=0 then
begin
  for i:=1 to 6 do Fo_First.Memo2.Lines.Delete(0);
  while true do
  begin
    Fo_First.Memo2.Lines.Delete(18);
    LinesTMP:=Fo_First.Memo2.Lines[18];
    if LinesTMP[1]='-' then Break;
  end;
  Fo_First.Memo1.Text:=Fo_First.Memo1.Text+Fo_First.Memo2.Text;
end;
tryexcepterror:=0;
  n:=n+1;
  Fo_First.ProgressBar1.Position:=n;
Fo_First.Memo1.Lines.SaveToFile(Folder+'mo01001.txt');
Fo_First.Memo1.Lines.Clear;

И ещё требуется написать бат-файл, который скопирует в буфер ряд файлов и запустит некую программу(которая перекодирует файлы и сохраняет их под тем же именем и в той же директории но ставит тильду перед именем) и удалит старые файлы, потом уберёт тильду в имени. Залью исходники и файлы с которыми работаю,по желанию, мб кто-то заинтересуется