Почитай про функцию POS. Пихаешь в нее обе строки и гоняешь в цикле пока Pos <> 0, при этом удаляя найденные пары и наращивая счетчик. Вроде бы так, попробуй.