Поиск текста по документу и замена его на свой текст

Word.selection.find.Text :=('$FIO$');
   Word.selection.find.replacement.Text := edit1.Text;
   Word.Selection.Find.Execute(Replace := wdReplaceAll);

edit2.text:=copy(st,0,pos(' 'edit1.text)-1)+copy(st,pos(' ',edit1.text),1)+copy(st, LastDelimiter(' ',edit1.text ),1);

procedure TForm1.Edit4Change(Sender: TObject);
var st: char;
begin
edit2.text:=copy(st,0,pos(' 'edit1.text)-1)+copy(st,pos(' ',edit1.text),1)+copy(st, LastDelimiter(' ',edit1.text ),1);
end;

procedure TForm1.Edit4Change(Sender: TObject);
 
begin
edit4.text:=copy(st,0,pos(' 'edit1.text)-1)+copy(st,pos(' ',edit1.text),1)+copy(st, LastDelimiter(' ',edit1.text ),1);
end;

function GetInitials(s : string) : string;
begin
   s := Trim(s);
   result := Format('%s %s.%s.',
      [Copy(s, 1, Pos(' ', s)), s[Pos(' ', s) + 1], s[LastDelimiter(' ', s) + 1]]);
end;