[alexteam]

ну, вот тебе. к примеру.

var
  Test : array[0..10] of string;
  
procedure Init; 
begin
end;

procedure Free; 
begin
end;


begin
  Test[1] := pck; //"вот попробуй туда запихнуть pck" ©
  pck := ''; //
  buf := test[1]; //"и потом его из масива достать" ©
  if fromclient then sendtoclient else sendtoserver; //"и отправить..." ©
end.