Pop3 протокол с winsock

 while pos(#13, _tempStr)>0 do

procedure TForm1.ReadMailClick(Sender: TObject);
var
 _buff:array [0..256] of Char;
 i, j:integer;
 _tempStr:AnsiString;
 _size:integer;
begin
 if MailListView.Selected = nil then
  Exit;
 
 _size:=strToInt(MailListView.Selected.SubItems.Strings[0]);
 i:=0;
 
 AddToLog('Попытка загрузки письма...');
 
 SendToSocket(_popSocket, 'RETR '+IntToStr(MailListView.Selected.Index+1));
 AddToLog(ReadFromSocket(_popSocket));
 Sleep(1000);
 
 while i<=_size do
 begin
  if _size-i<256 then
  begin
   fillchar(_buff, sizeof(_buff),#0);
   j:=_size-i+50;
   recv(_popSOcket, _buff, j, 0);
 
    _tempStr:=_tempStr+_buff;
    Break;
    Exit;
  end;
 
  fillchar(_buff, length(_buff), #0);
  i := i+recv(_popSocket, _buff, length(_buff), 0);
  _tempStr:=_tempStr+_buff;
 end;
 
 TextMemo2.Lines.Clear;
 
 while pos(#13, _tempStr)>0 do
 begin
  TextMemo2.Lines.Add(Copy(_tempStr, 1, pos(#13, _tempStr)));
  Delete (_tempStr, 1, pos(#13, _tempStr)+1);
 end;
 
 TextMemo2.Lines.Add(_tempStr);
end;

TextMemo2.Lines.Text := _tempStr;

fillchar(_buff, length(_buff), #0);
  i := i+recv(_popSocket, _buff, length(_buff), 0);
  _tempStr:=_tempStr+_buff;
 end;
 
 TextMemo2.Lines.Clear;
 
 textmemo2.lines.text:=_tempStr;
 
{ while pos(#13, _tempStr)>0 do
 begin
  TextMemo2.Lines.Add(Copy(_tempStr, 1, pos(#13, _tempStr)));
  Delete (_tempStr, 1, pos(#13, _tempStr)+1);
 end;     }
 
 //TextMemo2.Lines.Add(_tempStr);
end;

textmemo2.lines.text:=_tempStr;

TextMemo2.Lines.Text := _tempStr;