[Dreammaster]

Доброго времени суток. С утра встала проблема: как заставить base64 кодить/декодить содержимое richedit, написанное кириллицей.
Пробовал так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
With Richedit2 do begin
SelAttributes.Name:= 'Windows-1251';  // UTF8, ANSI 
SelAttributes.Charset:= RUSSIAN_CHARSET;
end;
     end;
Еще пробовал так: 
Richedit2.Text:= utf8toansi(IdEncoderMIME1.Encode(Richedit2.Text));
Richedit2.Text:= utf8toansi(IdDecoderMIME1.DecodeString(Richedit2.Text));

MAD: пользуётесь тегами.
Пробовал и через переменную типа a:ansistring;
Ничего не помогает. Как ни верти, на выходе, после декода вместо кириллицы, знаки вопроса. Помогите с кодом, у меня уже мозг болит от этих кодировок. ((