텍스트 박스에서 엔터를 치면 관련코드가 있는 박스가 뜨도록 했습니다.

  if Key = 13 then
  begin
    Part := fnCommonSearch('$part',EditPart.Text);
    EditPart.Text := fnFindCommonNm('$part',Part);
  end;

바로~ 위의 명령이죠~~~
fnCommonSearch 함수내용은...

function fnCommonSearch(basis,find:String):String;
var
  TmpCnt : Integer ;
begin
  with dm.qComCd do
  begin
    Close;
    ParamByName('Basis').AsString := basis ;
    ParamByName('Find').AsString := '%'+Find+'%' ;
    open;

    TmpCnt := RecordCount ;

    if TmpCnt <> 0 then
    begin
      if TmpCnt > 1 then
      Try
        fComCd := TfComCd.Create(fComCd);
        fComCd.ShowModal;
      Finally
        Result := fComCd.Cd ;
        fComCd.Free;
      end
      else
        Result := FieldByName('CommonCd').AsString ;
    end
    else ShowMessage('찾을 수 없습니다');
  end;
end;


이렇습니다...
처음 한번 수행할때는 잘 되는데...
두번째 이 부분을 수행하면 Abstract Error가 뜹니다...

어떻게 해야하는지... 해결사님들의 도움을 기다립니다...
꼬옥~이요....