var
  sl:TStringList;
  i:integer;
begin
  sl:=TStringList.Create;
  try
    //Чтение
    sl.LoadFromFile('C:\test.txt');
    //удаление строк без 'abc'
    i:=0;
    while i<sl.Count do
      begin
        if pos('abc',sl[i])>0 then
          inc(i)
        else
          sl.Delete(i);
      end;
    //удаление 'def'
    sl.Text:=StringReplace(sl.Text,'def','',[rfReplaceAll,rfIgnoreCase]);
    //запись
    sl.SaveToFile('C:\test.txt');
  finally
    sl.Free;
  end;
end;