var
   buffer:array[0..64000] of byte;
   i:integer;
   buffstr:string;
begin
   buffstr:='';
   repeat
    l:=winsock.recv(mailsocket,buffer,sizeof(buffer),0);
    buffstr:=buffstr+copy(buffer,1,l);
   until l<=0;
  result:=buffstr;