Delphi - кодировка

Я хочу кодировать текст в база69.

RichEdit1.Text:=idencodermime1.Encode(RichEdit1.Text) ;
  RichEdit1.Lines.SaveToFile(Edit1.Text);

Но дело в том, что шифрует только английский,а не русский как раньше. Вместо русского в файле появляется какая-то не понятная фигня.