ну, вот тебе. к примеру.
delphi Код:
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.