[The Shadow]

Код:

var
F: TStringList;
i: Integer;
begin
F:=TStringList.Create;
F.LoadFromFile('1.txt');
for i:=F.Count - 1 downto 0 do
if Pos('слово', F.Strings[i]) > 0 then F.Delete(i);
F.SaveToFile('1.txt');//если надо
F.Free;
end;