[DD12]

Вместо нормального текста приходит это:<p>Обратная СЃРІСЏР·СЊ<br />

Прочитал много много всего на разобраться та и не могу ХЕЛП

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
mailcicl:integer;
begin
IdPOP31.Connect;
IdMessage1.clear;
Memo1.Clear;
IdPOP31.Retrieve(1,IdMessage1);
Label3.Caption:=UTF8Decode(IdMessage1.Subject);
Label5.Caption:=FormatDateTime('dd mmm yyyy hh:mm:ss', idmessage1.Date);
Memo1.Lines.AddStrings(IdMessage1.Body);
Memo1.Lines.SaveToFile(inttostr(mailcicl)+'.txt');
IdPOP31.Delete(mailcicl);
idPOP31.disconnect;
end;

В сохраненном тестовом файле отобрааеться все нормально

[Snake22]

попробуй так
Memo1.Lines.AddStrings(IdMessage1.Body);
Memo1.text:=Utf8ToAnsi(Memo1.text);

[DD12]

Спасибо огромное!

[DD12]

Label3.Caption:=IdMessage1.Subject;
как сделать?