1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure Linedelete(Filename, Search: string);             
var                                                                             
  inhalt : TStringList;                                                    
  line : integer;                                                            
begin                                                                          
  inhalt := TStringList.Create;                                       
  inhalt.LoadFromFile(Filename);                                   
  for Line := 16 to inhalt.Count-1 do begin                     
    if PosN(Search,inhalt.Strings[Line],1) = 1 then begin  
        inhalt.Delete(Line-1);
    end;                                    
  end;                                      
  inhalt.SaveToFile(Filename);    
end;