как объеденить скрипты

[Deffol]

ну ладно, я понял, вот так нормально?

begin                           
    if FromClient then
    
    begin
        if pck=HStr('B9 57 76 00 2F 00 31 04 40 04 31 04 40 04 00 00') then
        begin 
            buf:=HStr('C9 57 66 04 41 0A C7 43 AA CA 25 45 5F E9 54 43 64');
            SendToServer;
            buf:=HStr('9E 57 5D 3B BA C1 43 1D E1 24 45 AE 62 50 43 64 00');
            SendToServer;              
            buf:=HStr('67 57 04');
            pck:='';
        end;
//ну и дальше продолжение... 
 

а кто может объяснить как тут реализовать Read, вместо байтов, я сам пробовал не доходит.