[Burka]

Подскажите как работать с Socket.Data. При конекте я выделяю память таким способом:

Код:

   
New(ClientData);
ClientData^:=txt;
Socket.Data:=ClientData;
ClientData:=nil;
Memo1.Lines.Add('[Log in]: '+txt);

Но переодически ошибки возникают, "доступ по адресу" или что то в этом роде.
Подскажите в чем проблема может быть?
При дисконекте освобождаю память

Код:

ClientData:=Socket.Data;
S:=ClientData^;
FreeMem(ClientData);
Socket.Data:=nil;
Memo1.Lines.Add('[Client '+S+' disconnected..]');