Работа с TIdIMAP4 и TIdMessage

[-MagicAlex-]

У меня стоит задача - вытянуть почту с сервера с помощью IMAP.
Использую следующие компонеты Indy - TIdIMAP4 и TIdMessage.

Вот, для примера, отрывок кода для получения одного письма:

procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
  with SettingForm do
    begin
      IdIMAP4.Host := IMAPHostEdit.Text;
      IdIMAP4.Username := IMAPLoginEdit.Text;
      IdIMAP4.Password := IMAPPassEdit.Text;
    end;
  IdIMAP4.Connect();
  try
    IdIMAP4.SelectMailBox('INBOX');
    IdIMAP4.Retrieve(1,IdMessage);
    Memo1.Text := IdMessage.Body.Text;
  finally
    IdIMAP4.Disconnect;
  end;
end;

Письмо получаем, только в теле письма следующее:

aIN ?IOOOAII?IAIEN DIAO?OIICI DAOIIN IOOII DAOAEOE DI UOIE
o O?AOAIEAI, nIAAEO.?AODIOO

Понятно, что здесь нужно что-то делать с кодировкой, только я не знаю где она меняется, подскажите, плиз

[Robin_]

Посмотри тут

[monkhard]

ss:= IdMessage1.Body.Text;
ss:=Utf8ToAnsi(ss);
memo1.Text:= ss;