[MAD_EVAL]

Либо так

Код:

Memo1.Text := AnsiToUtf8(Memo1.Text);

Либо так, если в файлик из мемо

Код:

 for stroka:=0 to Memo1.Lines.Count do
       writeln(FILE, AnsiToUtf8(Memo1.Lines[stroka]));