как скачать последнее письмо

[4ipolino]

пользуюсь кодом:

mmo1.Clear;
POP3.Host:=cbb1.Text;
POP3.Port:=110;
POP3.Username:=edt1.Text;
POP3.Password:=edt2.Text;
IdMessage.Clear;
POP3.Connect;
POP3.Retrieve(1,IdMessage);
Mmo1.Lines.AddStrings(IdMessage.Body);
// POP3.Delete(1);
POP3.Disconnect;


как отредактировать POP3.Retrieve(1,IdMessage); чтоб получать не 1 а последнее письмо на ящике?
и второй вопрос. как загрузить письмо в кодировке UTF-8 в memo1 ?

[VeTaL_UA]

как отредактировать POP3.Retrieve(1,IdMessage); чтоб получать не 1 а последнее письмо на ящике?
не понятен вопрос....
и второй вопрос. как загрузить письмо в кодировке UTF-8 в memo1 ?
Загрузить письмо куда то, например в 'p', и
Memo1.Lines.Text:=Utf8ToAnsi(p)

[4ipolino]

не понятен вопрос....
нашел методом тыка :goplol:
может надо будет кому:
procedure Tg_main.btn1Click(Sender: TObject);
var
NumOfMsgs:Integer; // Количество писем
begin
try
mmo1.Clear;
POP3.Host:=cbb1.Text;
POP3.Port:=110;
POP3.Username:=edt1.Text;
POP3.Password:=edt2.Text;
IdMessage.Clear;
POP3.Connect;
if POP3.Connected then
begin
NumOfMsgs := POP3.CheckMessages; // записываем в NumOfMsgs количество писем
POP3.Retrieve(NumOfMsgs,IdMessage);
Mmo1.Lines.AddStrings(IdMessage.Body);
end
except
on E:Exception do Mmo1.Lines.Add('Ошибка подключения! '+E.Message);
end;
//POP3.Delete(NumOfMsgs);
POP3.Disconnect;
end;

ещо раз спс за помощь