TSocketServer与TSocketClient通讯报错(指针报错,获取到的socket.data一直为nil)

这是我申明的一个记录:
type
  TCon=record
    ConType:string;
    Status:Integer;
  end;
  PCon=^TCon;客户端发送信息:
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var C:pcon;
begin
  if(Key=vk_return)then
  begin
    if(Memo1.Text<>'')then
    begin
      c:=new(Pcon);
      c^.ConType:='Text';
      c^.Status:=0;
      ClientSocket1.Socket.Data:=c;
      ClientSocket1.Socket.SendText(Memo1.Text);
    end;
  end;
end;
服务端接收信息:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var C:Pcon;
begin
  c:=Pcon(Socket.Data);
  ShowMessage('Type:'+c^.ConType+'状态:'+inttostr(c^.Status));
  Memo2.Lines.Add(Socket.ReceiveText);
end;我打断点跟踪到红色的那一行,发现socket.data为nil,有经验的帮我看看,弄好长时间了没弄出来