repeat
FillChar(Buffer2,SizeOf(Buffer2),0);
d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);

for i:=1 to d do html:=html+utf8toansi(Buffer2[i]);
memo1.Lines.Add(html);
until d<=0;