Помогите с записью строк в фаил с кодировкой UTF-8

[Виталий Серов]

У меня проблема, надо записать строчные переменные в фаил в кодировке UTF-8. Как их записать.Через какую функцию.Работаю я в Delphi 7, если это важно

[Alar]

Я перевожу текст в utf-8 кодировку - Ansitoutf8, а потом эту кодировку указываю в сохраняемом файле.

//made in programmersforum.ru
procedure TForm1.Button6Click(Sender: TObject);
var
  S: TStream;
  Sign: Cardinal;
begin
memo3.Text:=Ansitoutf8(memo3.text);
  S := TFileStream.Create(edit3.text,fmCreate);
  try
    Sign := $BFBBEF;
    S.WriteBuffer(Sign, 3);

    S.WriteBuffer(PChar(memo3.Text)^, length(memo3.text));
  finally
    S.Free;
  end;

end;