Access Violation

Estou mexendo com socket e preciso gravar um nome no tipo que eu criei, mas está dando access violation, qual é o problema?? Valeu galera

type
TUser = record

id: integer;
nick: string;
end;

type PUser = ^TUser;

###### PUser(s.Socket.Data)^.nick := 'Teste'; #### Essa é a linha problemática