[Кодер]

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

Код:

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;

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