Чем лучше воспользоваться для открытия документа и его пересохранения?

var
FileName: String; 
NewFileName: String;
NewPath: String; 
 
//кнопка "Пересохранить"
begin
if OpenDialog1.Execute=false then exit;
FileName:=OpenDialog1.Filename;
if SaveDialog1.Execute=false then exit;
NewPath:=ExtractFilePath(SaveDialog1.FileName);
CopyFile(PChar(FileName), PChar(NewPath + '/' + ExtractFileName(FileName)); //копируем
NewFileName:=NewPath + '/Новое имя файла' + ExtractFileExt(FileName);
RenameFile(PChar(NewPath + '/' + ExtractFileName(FileName),PChar(NewFileName)); //переименовываем 
ShowMessage('Готово');
end;

procedure TForm2.btn3Click(Sender: TObject);
var
   FName,xxx0,xxx1: string;
 begin
    dlgSave1.InitialDir := GetCurrentDir;
           if dlgSave1.Execute
  then ShowMessage('File : '+dlgsave1.FileName)
  else ShowMessage('Save file was cancelled');
  xxx0:= '.doc';
  xxx1:= '.odt';
   if dlgSave1.FilterIndex=1 then
olcntnr1.SaveAsDocument(dlgSave1.FileName + xxx0);
 
 if dlgSave1.FilterIndex=2 then
olcntnr1.SaveAsDocument(dlgSave1.FileName + xxx1);
 
     olcntnr1.Close;
 end;

 
//кнопка "Пересохранить"
var
FileName: String; 
NewFileName: String;
NewPath: String; 
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Просим вас выбрать документ для копирования и переименования');
if OpenDialog1.Execute=false then 
begin
Memo1.Lines.Add('Вы отказались'); //:D
exit;
FileName:=OpenDialog1.Filename;
Memo1.Lines.Add('Вы выбрали файл:' + FileName);
Memo1.Lines.Add('Просим вас выбрать место и название файла в которое он будет копирован и переименован');
if SaveDialog1.Execute=false then 
begin
Memo1.Lines.Add('Вы всё нам испортили'); //:D
exit;
end;
NewPath:=ExtractFilePath(SaveDialog1.FileName);
Memo1.Lines.Add('Вы выбрали:' + SaveDialog1.FileName);
CopyFile(PChar(FileName), PChar(NewPath + '/' + ExtractFileName(FileName)); //копируем
Memo1.Lines.Add('Мы копировали файл в ' + NewPath + '/' + ExtractFileName(FileName));
NewFileName:=NewPath + '/' + ExtractFileName(SaveDialog1.FileName); //формируем новое имя файла
RenameFile(PChar(NewPath + '/' + ExtractFileName(FileName),PChar(NewFileName)); //переименовываем
Memo1.Lines.Add('Мы переименовали скопированное в ' + ExtractFileName(NewFileName));
Memo1.Lines.Add('Мы закончили все действия, на которые нас запрограммировали');  
ShowMessage('Готово');
end;