Delphi : blokujici Cliensocket

Zdravim,
zkousim nejake veci s blokujicimi sockety, doufam, ze chapu spravne, ze pro cteni dat musim mit thread s funkci na cteni socketu, ale nevim, co v ni vse ma byt:-(
Thread se vytvori po uspesnem pripojeni na server, ale nevim, jak cist data a jak zjistit, odpojeni/chybu atd.
diky

Kód:

---

function ctisocket():integer;
var data:string;
size:integer;
begin
result:=0;

while(true)do begin
data:=form1.client.Socket.ReceiveText;
if(data='')then break;
form1.errors.Items.Insert(0,data);
end;
form1.client.Close;
endthread(0);
end;

---