Абракадабра в Memo

[Тутонхамон]

Программа принимает сообщение с @mail.ru, и отправляет его в Memo следующим образом:

Memo2.text:=idmessage1.Body.Text;

Отображаются только английские символы и цифры,
а вместо русских символов абракадабра;

Çäðàâñòâóéòå, Åâãåíèé!

Что делать?
Может кто уже сталкивался с этой проблемой.

[Usov]

какая делфа?
мой пример для мейл.ру под D7:

procedure TForm1.Button1Click(Sender: TObject);
var
  k,i,FMsgCount: Integer;
  url: String;
  s: String;
begin
  if POP.Connected then
    POP.Disconnect;
  POP.Host := 'pop.mail.ru';
  POP.Port := 110;
  POP.Username := 'wqwdwqdqwdqwdq@mail.ru';
  POP.Password := '312h3l12jh3';
  try
    POP.Connect;
  except
    on E: Exception do
      begin
        MessageDlg(E.Message, mtError, [mbOK], 0);
        Exit;
      end;
  end;
  FMsgCount := POP.CheckMessages;
  for i:=1 to FMsgCount do
  begin
    POP.Retrieve(i, Msg);
    for k:=0 to Msg.MessageParts.Count-1 do
    begin
      if (Msg.MessageParts.Items[k] is TIdText) then
        s := (Msg.MessageParts.Items[k] as TIdText).Body.Text;
      s := GetSubStr(s ,'<a href=http://fxmail.ru/registration?action=check', '>');
      if s <> '' then
        begin
          Memo1.Lines.Text := 'http://fxmail.ru/registration?action=check'+s;
          Break;
        end;
    end;
  end;
end;

[kangreon]

Текст в кодировке UTF8
Решается проблема леко.

Memo2.text:=UTF8Decode(idmessage1.Body.Text);

[)Игнат(]

Можно так-же попробовать функцию

ANSIToUTF8(String); 
UTF8ToANSI(String);

Я так проблему решил.