Кодировка приходящего письма

[dagetus]

Здравствуйте! Написал программу для принятия писем, но когда принимаю письмо у него слова написанные в письме не русские а крякозябрами написаны, программирую в Delphi 2010 использую IdPOP31, IdMessage1 вывожу сообщение в RichEdit1, пробовал выставлять IdMessage1.Charset='Windows-1251' не помогло. Отправляю письмо с помощью программы The Bat. Вот фрагмент кода

 IdPOP31.Host := Form3.Edit1.Text;
  IdPOP31.Port := StrToInt(Form3.Edit2.Text);
  IdPOP31.Username := Form3.Edit3.Text;
  IdPOP31.Password := Form3.Edit4.Text;
  IdPOP31.Connect;
  numPosts := IdPOP31.CheckMessages;
  for i := 1 to numPosts do
  begin
    IdMessage1.Clear;
    IdPOP31.Retrieve(i,IdMessage1);
    AdvListView1.AddItem(IdMessage1.Subject, nil);
    AdvListView1.Items.Item[AdvListView1.Items.Count - 1].SubItems.Add
      (IdMessage1.From.Name);
    AdvListView1.Items.Item[AdvListView1.Items.Count - 1].SubItems.Add
      (DateToStr(IdMessage1.Date));
    RichEdit1.Lines.Add(IdMessage1.Body.Text) ;
      IdPOP31.Delete(i);
  end;

   IdPOP31.Disconnect;
end;