Перекодирование из windows-1251 в utf-8

procedure TForm1.Button1Click(Sender: TObject);
var W:variant;
var f:TextFile;
var st:string;
begin
 
if OpenDialog1.Execute then // если выбрали файл *.doc то....
 begin
 W:=CreateOleObject('Word.Application');// создаем объект для работы с ворд
 W.Documents.Open(OpenDialog1.FileName,ReadOnly:=true);
 st:=W.ActiveDocument.Range.Text;
 //------------работа с файлом------------------
 
 f:=windows-1251ToUtf8(f);
 AssignFile(f,'word.txt');
 Rewrite(f);
 Write(f,st);
 closeFile(f);
 
// убираем объект W из памяти
W.Quit;
W:=UnAssigned;
 end;
 
end;

st :=AnsiToUtf8(st);

var
 W:OLEVariant;
 f:TextFile;
 st:string;
begin
W :=CreateOleObject('Word.Application');
 W.Visible :=False;
 
if not OpenDialog1.Execute then Exit;
 W.Documents.Open(OpenDialog1.FileName);
  st:=AnsiToUtf8(W.ActiveDocument.Range.Text);//здесь можно сразу преобразовать в UTF8
 AssignFile(f, 'word.txt');
 Rewrite(f);
 Write(f, st);
 closeFile(f);
 
W.ActiveDocument.Close;
W.Quit;
W :=UnAssigned;
end;

...
...
if not OpenDialog1.Execute then Exit;
 W.Documents.Open(OpenDialog1.FileName);
  st:=AnsiToUtf8(W.ActiveDocument.Range.Text);
  Memo1.Text :=st; //проверьте с AnsiToUtf8 и без
...
...