Коробка передач (нужна помощь)

[IBZY]

Всем привет, я в скриптах новенький(язык плохо знаю), строго не судите.
Суть скрипта: при пакете ХХХ от клиента в память записывантся цыфра х (от 0 до 3), и зависимо от цыфры в памяти идёт изменение входящево пакета.

//                                                                                     .
var
speed:TStrings;
//                                                                                     .
procedure Init;
begin
speed:=TStringList.Create;
end;
//                                                                                     .
procedure Free;
begin
speed.Free;
end;
//                                                                                     .
begin
begin
    begin
        if fromclient and (pck='38 2E 00 73 00 70 00 30 00 00 00 00 00 00 00') then
        speed:='0';
    end;
    begin
        if fromclient and (pck='38 2E 00 73 00 70 00 31 00 00 00 00 00 00 00') then
        speed:='1';
    end;
    begin
        if fromclient and (pck='38 2E 00 73 00 70 00 32 00 00 00 00 00 00 00') then
        speed:='2';
    end;
    begin
        if fromclient and (pck='38 2E 00 73 00 70 00 33 00 00 00 00 00 00 00') then
        speed:='3';
    end;
end;
begin
if speed='0' then
    begin
        if fromserver and (pck[1]=#$04) then pck[366]:=pck[366];
        if fromserver and (pck[1]=#$04) then pck[377]:=pck[367];
    end; 
if speed='1' then
    begin
        if fromserver and (pck[1]=#$04) then pck[366]:=#$FF;
        if fromserver and (pck[1]=#$04) then pck[377]:=#$01;
    end;
if speed='2' then
    begin
        if fromserver and (pck[1]=#$04) then pck[366]:=#$FF;
        if fromserver and (pck[1]=#$04) then pck[377]:=#$02;
    end;
if speed='3' then
    begin
        if fromserver and (pck[1]=#$04) then pck[366]:=#$FF;
        if fromserver and (pck[1]=#$04) then pck[377]:=#$03;
    end;
end;
end.

вопрос: что должно быть вместо speed:TStrings; и speed:=TStringList.Create; (стринг неподходит точно).
Может чот нетак делаю?