خطأ indice liste hors limite

[S.FATEH]

السلام عليكم
الكود به الكثير من الاخطاء قسم العمليات الى عمليات اصغر باستخدام procedures و function كمثال فقط عن الاخطاء المتواجدة عند الحذف من اللائحة استخدم downto بدل الذي فعلته لم افهم الكود جيدا لكن جرب هذا

PHP كود :

var
 s,i: Word;
 f: Integer;
begin
 Randomize;
 f := Random(lst1.Items.Count - 1);
 ADOTable1.open;
 ADOTable1.First;
 while (not (ADOTable1.Eof)) do
 begin
   for i := 0 to f do
   begin
     lst1.Items.BeginUpdate;
     for s := lst1.items.count - 1 downto 0 do
     begin
       ADOTable1.edit;
       ADOTable1.FieldByName('PROF01').Text := lst1.Items[f];
       ADOTable1.Post;
       lst1.Items.Delete(i);
     end;
       lst1.Items.EndUpdate;
       lst1.Refresh;
       show_info;
   end;
 ADOTable1.Next;
 end;
end;