كيف تحويل ملف وورد من الكوداج ansi إلى utf-8 برمجيا بلغة الدلفي

[ferrero]

procedure ANSIToUTF8(ANSIFile, UTF8File: TFileName);
var
S: TStrings;
begin
S := TStringList.Create;
try
S.LoadFromFile(ANSIFile);
S.Text := UTF8Encode(S.Text);
S.SaveToFile(UTF8File);
finally
S.Free;
end;
end;