Сбор и чтение пакета

[OrdJONY]

Как сделать к примеру вот такой пакет:

TMyPacket = record
    proto, msg, from, fromport: DWORD;
   Reserved: array[0..15] of Byte;
end;

Это будет заголовок пакета, а дальше будет следовать его содержание, тоесть команды и др. И несколько примеров содержание пакета:
Имя Команды: PROT_LOGIN_FAILED
Параметры: причина

Имя Команды: PROT_USER_STATUS
Параметры: Status (Статус пользователя); User (Имя пользователя)
Использую Indy, пожалуйста помогите примерами именно на Инди

[BOBAH13]

первое скажу тебе! первые я думаю хватит 2 байта - WORD должны идти, и описывать размер посланной структуры чтобы знать сколько читать в структуру! второе вот две функции писал для себя, должны пахать

procedure RecvBuffer(Socket: TCustomWinSocket; var Buf; Count, pStart: Integer);
var
i, n: Integer;
begin
i := pStart;
while i < Count do
begin
n := Socket.ReceiveBuf(pointer(integer(@ Buf)+i)^, Count-i);
if n>-1 then inc(i, n);
end;
end;

procedure SendBuffer(Socket: TCustomWinSocket; var Buf; Count, pStart: Integer);
var
i, n: Integer;
begin
i := pStart;
while i < Count do
begin
n := Socket.SendBuf(pointer(integer(@Buf )+i)^, Count-i);
if n>-1 then inc(i, n);
end;
end;