Ботик

[xkor]

в pck.size надо пихать первые два байта пакета а не то что ты
но так как ты делаешь:

Сообщение от ElKornacio

while i<>length(s) do begin
pck.ch[i]:=s[i+1];
i:=i+1;
end;

то в pck.size ваще ничего пихать не надо так как это pck.ch[0] и pck.ch[1]

а вообще всё это

Сообщение от ElKornacio

pck.size:=length(s);
i:=0;
while i<>length(s) do begin
pck.ch[i]:=s[i+1];
i:=i+1;
end;

надо заменить на Move(s[1],pck,Length(s));
как будет работать e:=pck.ch; я себе плохо представляю, не уверен что так как ты хочешь.., скорее всего запихнет в e байты до первого нулевого...