تبدیل Ansi به Unicode در دلفی 7

[hector2000]

سلام
من یک پروسیجری در دلفی Xe3 نوشتم که فایل های متنی Ansi با انکودینگ 1256 را به یونیکود تبدیل می کنه و دخیره می کنه و می خواهم این کار را در دلفی 7 انجام بدم ولی متاسفانه نمی تونم این کار را بکنم چون در تابع LoadFromFile و SaveToFileدر دلفی 7 نمی توان انکودینگ را بهش داد که موقع باز کردن از این انکودینگ استفاده کند.
نمونه کد من:

procedure Tform1.ConvertANSIFileToUTF8File(AInputFileName, AOutputFileName: TFileName);
var
Strings: TStrings;
begin
Strings := TStringList.Create;
try

Strings.LoadFromFile(AInputFileName , TEncoding.GetEncoding(1256));
Strings.Text := UTF8Encode(Strings.Text);
Strings.SaveToFile(AOutputFileName , TEncoding.UTF8);
finally
Strings.Free;
end;

end;


بخشی را که دلفی 7 نمی فهمد

Strings.LoadFromFile(AInputFileName ,TEncoding.GetEncoding(1256));
Strings.SaveToFile(AOutputFileName , TEncoding.UTF8);

دوستان می توانند راهنمایی کنند؟ایا راهی وجود دارد؟

[یوسف زالی]

سلام.
چاره ی کار باز نویسی متد هاست.
روش دیگه استفاده از کامپوننت های آماده است.

[BORHAN TEC]

روش دیگه استفاده از کامپوننت های آماده است.
http://www.tmssoftware.com/site/tmsuni.asp
http://www.axolot.com/TNT/

[hector2000]

ممنونم از پاسختون
ولی من به دنبال کامپونت نیستم و تنها اگر دستور Loadfromfile بتواند انکودینگ 1256 را قبول کند ان وقت مشکل من حل میشود.
این کامپونتهایی که دوستان معرفی کردن همگی دارای اشیا و ابجکت هستند و فکر نمی کنم که دستورات یونیکدی به دلفی اضافه کنند