用SOCKET如何传送一个记录类型的数据

[hanxian]

TYPE
record1 = record
pcode: PChar;//操作码
pstream:pointer;//传送内容
end;

var
skt:TSOCKET;

//发送
procedure sendstream;
var
rec:record1;
begin
rec.pcode := pchar('10');
getMem(rec.pstream,20);
send(skt,);//怎么发送呢？？
end;

//接收
procedure recvstream;
begin
//如何接收;
end;