تولید فایل متنی unicode

[behzad_dr]

سلام دوستان

من میخوام فایل متنی که ایجاد میکنم unicode ذخیره بشه . چطور میشه این کار رو کرد ؟ (در دلفی 7)

یا به عبارت دیگر چطور از کامپوننت TNT استفاده کنم . ضمنا اگر ممکنه لینکه دانلود این کامپوننت رو قرار بدهبد.


procedure TForm22.BitBtn1Click(Sender: TObject);
var infile:textfile;

begin
AssignFile(infile,'sam.txt');
rewrite(infile);
Write(infile,(DataModule3.Table1['period']));
CloseFile(infile);

end;