[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:shop');
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
Всем удачи, поиск правды занял день