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

[hammadi0799]

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

[Houdini]

استعمل دوال
utf8decode
utf8encode

[hammadi0799]

هل ممكن تعطيني مثال من فضلك على كيفية إستعمال هذه الدوال؟

[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;

[hammadi0799]

أشكرك أخي الكريم كل الشكر
وأنا ممتن لك وجزاك الله كل خير