procedure TForm1.Button1Click(Sender: TObject);

 function NotOk(const s:string):boolean;   //проверка ответа сервера
 begin
   result:=copy(s,1,4)='-ERR';
   if result then
   begin
     tcp.Disconnect;
      memo1.Lines.Add(s);
   end;
 end;

 Function SendCmd(cmd:string; var response:string):boolean;    //отсылаем команду , ждем ответ
 var
   witherr:boolean;
 begin
   result:=false;
   witherr:=false;
   try
     tcp.Socket.Write(cmd+#13#10);
   except
     on e:Exception do
     begin
       tcp.Disconnect;
       memo1.Lines.Add(e.Message);
       witherr:=true;
     end;
   end;
   if not withErr then
   begin
     try
       response:=tcp.Socket.ReadLn;
     except
       on e:Exception do
       begin
         tcp.Disconnect;
         memo1.Lines.Add(e.Message);
         witherr:=true;
       end;
     end;
     result:= not NotOk(response) ;
   end;
 end;

var
 s:string;
 buf:string;
begin
 //Данный код написан для примера
 //tcp : TidTCPClient (indy 10)
 tcp.Host:='pop.mail.ru';
 tcp.Port:=110;
 tcp.Connect;
 if not tcp.Connected then
 begin
   memo1.Lines.Add('Not connected');
   exit;
 end else
 begin
   memo1.Lines.Add('Connected.');
   application.ProcessMessages;//проявитель
 end;
 if NotOk(tcp.Socket.ReadLn) then exit; //ждем когда сервер поприветствует
 if not SendCmd('USER Login',s) then exit;
 if not SendCmd('PASS Passw',s) then exit;
 memo1.Lines.Add('Login OK');
 application.ProcessMessages; //проявитель
 if not SendCmd('LIST 52',s) then exit; //Узнаю размер сообщения под номером 52
 memo1.Lines.Add(s); //сервер вернул +OK 52 950 в дальнейшем из этой строки я извлекаю размер
 Application.ProcessMessages;//проявитель
 if not SendCmd('RETR 52',s) then exit; //команда на получение сообщение
 s:='';
 buf:='';
 repeat
   s:=tcp.Socket.ReadLn;
   buf:=buf+s+#13#10;
 until s='.';  //точкой обозначается конец сообщения
 memo1.Lines.Add('Real size = '+inttostr(Length(buf))); // length(buf) = 930  меньше чем 950
 memo1.Lines.Add('Message:');
 memo1.Lines.Add(buf);
 tcp.Socket.Write('QUIT'+#13#10); //прощаемся;
 tcp.Disconnect;//не дожидаясь ответа

end;