Код:
procedure TForm1.Button2Click(Sender: TObject);
var
i,n:integer;
Msg:TIdMessage;
begin
if(IdPOP31.Connected)then
begin
MSG:= TIdMessage.Create(self);
i:=Idpop31.CheckMessages;//определяет правильно
for n:=1 to i do
begin
Msg.Clear;
//IdPOP31.RetrieveHeader(i,Msg);
//ListBox1.Items.Add(Msg.Subject);//считывает правильно
IdPOP31.Retrieve(n,Msg);//Задумывается навсегда(
Memo1.Text:=Memo1.Text+Msg.Body.Tex t;
end;
Msg.Free;
end;
Admin: Пользуемся тегами!
Вопрос:Почему он не может обработать эту строку, если все предыдущие обрабатывает правильно
p.s. Использовал любые другие варианты реализации чтения писем этим компанентом, всегда останавливается на той строке(, а мне нужно именно пользуясь инди