Удаление строк определенной длины!

[sokolik-117845]

Как удалить строки из txt файла которые содержат более 10 символов и менее десяти символов?

var
StrList: TstringList;
I: Integer;
begin
StrList := TstringList.Create;
try
StrList.LoadFromFile('Исходный.txt');
I:= 0; while I < StrList.Count - 1 do// mironich, ты не указал начало цикла
begin
if (Length(StrList.Strings[I]) > 13) and (Length(StrList.Strings[I])  < 13) then
StrList.Delete(I)
else
inc(i); //иначе вперед
end;
StrList.SaveToFile('Исходный.txt');
finally
StrList.Free;
end;
end;

Что не так? поправьте плиз!

[alkador]

Шо это за 3,14здец?

if (Length(StrList.Strings[I]) > 13) and (Length(StrList.Strings[I])  < 13)

Условие которое никогда не выполнится

[DarkEvil]

if (Length(StrList.Strings[I]) > 10) and (Length(StrList.Strings[I])  < 9) then

Наверно так)))

[Аватар]

Приколисты

if Length(StrList.Strings[I])<>10 then