[Кодер]

Удаляю с файла строку..а она не удаляеться

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var s1:string;i:integer; f:TStringList;k:boolean; begin f:=TStringlist.create; f.loadfromfile('data\Слипин Михаил.tbase'); i:=0;k:=false;s1:='222'; while k<>false do   begin   if s1=f.strings[i] then     begin     f.delete(i);     f.SaveToFile('data\Слипин Михаил.tskbase');     f.Free;     k:=true;     end;   inc(i);   end;

В файле всё норм(проверил)