Make an inputQuery replace a variable in the word if the condition is true

Question

I am working with Delhi and I need a method that does the following in the open word document look for a@Name variable if it finds the@Name variable open an inputQuery for the user to enter the new variable value and then replace@Name with the entered value in Inputquery.

Obs: the replacement part I already know my problem is even in the part of the algorithm go through the document and if it finds the variable return the inputQuery if it does not find just continue running the rest of the code.

Begin
if Doc.Content.Find.Execute(FindText := '@Ref') then
  InputQuery('Nome Funcionario', 'Insira um Valor:', ref);
  Doc.Content.Find.Execute(FindText := '@Ref', ReplaceWith := ref);
end;