[Delphi] GG -lista kontaktow

type
Int = Integer; 
THeader = record // Nag?ˇwek pakietu
    PacketType: Int;
    PacketLength: Int;
  end;
TGg_userlist_request =record
 Header: THeader;
type_:char;
request:array of char;
end;
PGG_userlist_request = ^TGG_userlist_request;

procedure GetList;
const
GG_USERLIST_GET=$02;
var
 ListPacket:  PGg_userlist_request;
begin
new(ListPacket);
 ListPacket^.Header.PacketType:=$0016;
 ListPacket^.Header.PacketLength:=SizeOf(ListPacket^);
 ListPacket^.type_:= char(GG_USERLIST_GET);
 WriteBuffer(ListPacket^, SizeOf(ListPacket^));
 Dispose(ListPacket);
end;