Что неправильно?

[Aminf]

по некоторым причинам понадобилось именно эта программа, написал простой скрипт на фикс мув а он не работает где неправильно???

begin
if FromClient and (pck[1]=#$0F)  and  (Length(pck)=50) then
begin
pck:=pck + #01#00#00#00;
end;
end.

вроде тут неучитываются первые 2 байта.
сразу умным проверка размера полюбому нужна тк без нее при беге с клиента будет с клиента слать 2 раза 01 00 00 00.

Добавлено через 7 минут
все разобрался

begin
if FromClient and (pck[1]=#$0F)  and  (Length(pck)=25) then
begin
pck:=pck + #01#00#00#00;
end;
end.

програма 2 символа за 1 щитает и 1 2 байта первых вапще как я понял нигде не учитывает.

Добавлено через 23 минуты
и еще такой вопрос как сделать чтобы при входе в программу скрипты автоматически нажимались?