[NumLock]

в Memo1 исходный текст:

Код:

var
  StringList: TStringList;
begin
  StringList:=TStringList.Create;
  StringList.Text:=UTF8Encode(Memo1.Text);
  StringList.SaveToFile('c:\Downloads\chupakabra.txt');
  StringList.Free;
end;

в chupakabra.txt будет в UTF8.