Скрипт перебора.

[slavez]

В общем из кусков разных скриптов собрал свой, идея в том что бы он автоматически перебирал все значения внутри заданного промежутка и проверял их на сервере.
В итоге скрипт запускается, но если начать его выполнять то вылетает критическая ошибка phx.

var
i,g:integer;
start:Boolean;
Timer: TTimer;
Stream:TFileStream;
procedure Init;
begin;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.enabled:=false;
start:=false;
i:=9000;
g:=10000;
try
Stream := TFileStream.Create('D:\GoodId.txt', fmOpenReadWrite);
except
Stream := TFileStream.Create('D:\GoodId.txt', fmCreate);
end;
end;
procedure Free;
begin
Timer.free;
Stream.free;
end;
procedure OnTimer(Sender: TObject);
begin
if start and (i<g) then begin
i:=i+1;
buf:=#$23;
Writes('_bbsmultisell:'+inttostr(i)+';_bbspage:sho p');
sendtoserver;
end;
if (pck[1]+pck[6]=#$D0#$01) then
Stream.Write(inttostr(Readd(2))+' ',10);
end;


begin
if FromClient and (pck[1]=#$56) and (start=false) then begin
start:=true;
Timer.enabled:=true;
timer.interval:=2000;
end;
end.

Добрые люди нужна ваша помощь=)

Добавлено через 10 часов 23 минуты
В общем нашел решение моей проблемы.
Скрипт не буду удалять, вдруг кому-нибудь захочется поковыряться.
В нем 2 ошибки.
Дополнял и правил по статьям:
http://coderx.ru/showthread.php?t=8895
http://coderx.ru/showthread.php?t=119
Всем удачи, поиск правды занял день:D