найти и удалить всю cтроку, в которой нет заданной подстроки...

[doktor255]

procedure TForm1.Button3Click(Sender: TObject);
var
  F1, F2: TStringList;
  stroka: string;
  i: integer;
begin
  F1 := TStringList.Create;
  F1.LoadFromFile('C:\Users\Probook\Desktop\111.txt');
  F2 := TStringList.Create;
  for i := 0 to strtoint(Edit2.text) do
  begin
    stroka := F1[i];
    if (Pos('A.  ',stroka) > 0) or
     (Pos('B.  ',stroka) > 0) or
      (Pos('C.  ',stroka) > 0) or
       (Pos('D.  ',stroka) > 0) or
        (Pos('E.  ',stroka) > 0) or
         (Pos('F.  ',stroka) > 0) or
          (Pos('G.  ',stroka) > 0) or
           (Pos('?',stroka) > 0) then
    F2.Add(stroka);
  end;
  F2.SaveToFile('C:\Users\Probook\Desktop\111-2.txt');
  F1.Free;
  F2.Free;
end;

Закидывай в F2 всё строки, удовлетворяющие условиям, и сохраняй.