خطأ indice liste hors limite

[chardoneret]

السلام عليكم شكرا أخي فاتح على المساعدة

PHP كود :

var
 s,i: Word;
 f: Integer;
begin
 Randomize;
 f := Random(lst1.Items.Count - 1);

   ADOTable1.open;
 begin
   while (not (ADOTable1.Eof)) do
   for i := 0 to f do
   begin
     try
       lst1.Items.BeginUpdate;
       for s := 0 to lst1.items.count - 1 do
       ADOTable1.edit;
       begin
        ADOTable1.FieldByName('PROF01').Text := lst1.Items[f];
         ADOTable1.Post;
       ADOTable1.Next;
       lst1.Items.Delete(i);
         lst1.ItemIndex := 0;
       end;
       finally
       lst1.Items.EndUpdate;
       lst1.Refresh;
     end;
     show_info;
   end;
   ADOTable1.First;
 end;
end;