저같은 초짜가 보기에도 별다른 소스상의 이상한점은 없는듯 해보이네요.

혹시, 잘 몰라서 드리는 말씀인데요.

Data를 받는 부분 즉, 아래 부분(1)을 (2)로 고쳐보시면 어떤 결과가 나올까요?

1. AppDsource->DataSet->FieldByName("음식")->AsString

2.  AppDsource->DataSet->Fields->Fields[index]->AsString
   => 여기서 index 는 "음식"컬럼에 대한 index입니다.

주로 저는 (2)을 써 왔던 터라. 테스트는 못해봤습니다... ^^;