void __fastcall TDMF_TEST::Query_Locate(TTable *theQuery, AnsiString asOrder, AnsiString asVAL)
{
    TLocateOptions Opts;
    Variant locvalues;
    Opts.Clear();
    Opts << loPartialKey;

    theQuery->DisableControls();
    locvalues = Variant(asVAL);

    theQuery->Locate(asOrder, locvalues, Opts);

    theQuery->EnableControls();
}

위 소스에서 뭐가 문제인지 잘 모르겠습니다.
검색을 한 recode를 가리키도록 하고 싶은데... 무조건 TDBGrid의 첫번째 레코드만 가리키네요..
어디가 잘못되었는지.. 부탁드립니다...