教えていただいたPHPのコードをなんとかdelphiに移せそうです。

あとは、どういう仕様にするかですが、今のところダイアログ経由で１作物のみ指定された場合に、上位下位自動判別にしようと思ってました。
直接入力で上位下位判別する場合なんですが、作物名をひとつに絞る必要があるので、どうしたらいいでしょう。
最初に完全一致で検索して、マッチするものがあれば、自動で上位下位判別検索する。完全一致でマッチするものがない場合、前方一致で候補を出して、指定してもらうという方法が良いのか。
理想的にはGoogleサジェストみたいなものが実現できればいいのですが。

上位下位自動判別で気になるのは、自分の用途だと、第１分類の野菜類がデフォルトで表示されるのは、かえって邪魔な場合もあります。
いったん検索した後で、再度絞り込めるような、機能があれば支障ないのですが。
作物の直接入力ボックスをリストボックスにして、初回検索時の作物リストをセットして、絞り込めるにするという手はあります。