Перевод функции и процедуры

W:Variant;
 
function TForm4.WordFindAndInsert(FindText, ReplacementText: String): boolean;
const wdReplaceAll=2;
begin
W.Selection.Find.Text:=FindText;
W.Selection.Find.Replacement.Text:= ReplacementText;
WordFindAndInsert:=W.Selection.Find .Execute(Replace:=wdReplaceAll);
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
 
W:=CreateOleObject('Word.Applicatio n');
W.Visible:=True;
 
// Создаем новый документ по шаблону
W.Documents.Add(ExtractFileDir(Appl ication.ExeName) + '\Документы\Реквизиты.docx');
 
WordFindAndInsert('&dir', dbEdit10.Text);
WordFindAndInsert('&Naim_p', dbEdit1.Text);
WordFindAndInsert('&Naim_s', dbEdit2.Text);
WordFindAndInsert('&adress', dbEdit3.Text);
WordFindAndInsert('&tel', dbEdit4.Text);
WordFindAndInsert('&mail', dbEdit11.Text);
WordFindAndInsert('&rch', dbEdit5.Text);
WordFindAndInsert('&bank', dbEdit6.Text);
WordFindAndInsert('&mfo', dbEdit7.Text);
WordFindAndInsert('&unn', dbEdit8.Text);
WordFindAndInsert('&okpo', dbEdit9.Text);
 
//Если необходимо автоматическое сохранение
// W.ActiveDocument.SaveAs(ExtractFile Dir(Application.ExeName) + '\' + DateToStr(Date) + '.docx');
// W.Application.Documents.Close;
// W.Quit;
W:=UnAssigned;
end;