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

[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]

Цитата: Сообщение от 4ipolino как отредактировать POP3.Retrieve(1,IdMessage); чтоб получать не 1 а последнее письмо на ящике?

не понятен вопрос....

Цитата: Сообщение от 4ipolino и второй вопрос. как загрузить письмо в кодировке UTF-8 в memo1 ?

Загрузить письмо куда то, например в 'p', и

Memo1.Lines.Text:=Utf8ToAnsi(p)

[4ipolino]

Цитата: Сообщение от VeTaL_UA не понятен вопрос....

нашел методом тыка
может надо будет кому:

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;

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