глюк или я чего то неправельно делаю при удалении файла...

 
глюк или я чего то неправельно делаю при удалении файла...
Здавствуйте!
откопал непонятно что то ли я чего то накасячил то ли программа глючит :(
Часть кода:

FileClose(handle);
handle=FileOpen( "Last_Lot" , "~" );
FileSeek(handle,0,SEEK_END);
Print( FileTell(handle),"!",stop);
i=FileTell(handle);
if i > 30 then
{
FileClose(handle);
FileDelete("Last_Lot");
for i=1 to 5
{
handle=FileOpen( "Last_Lot" , "~" );
FileSeek(handle,0,SEEK_END);
Print( number[i],"~");
FileWrite(handle,number[i]);
FileClose(handle);
};
};
проблемма в том что файл удаляеться только один раз :(
а потом грит что неможет удалить :((