아래와 같이 첫번째 클래스의 TESTCASE_OID와 두번째 클래스의 TESTCASE_OID
값을 비교하여 첫번째 클래스에 있는 값일 경우 두번째 클래스를
트리뷰로 보여줄려고 합니다.
클래스 구성하는것까지는 어떻게 했는데
각각의 클래스 값 비교를 어떻게 해야하는지 도무지 모르겠습니다.
각각의 클래스를 리스트로 만들어서 그 리스트를  for문으로 처음값부터
비교하면 될것 같긴 한데...
클래스 값을 리스트화 하는것과 해당 리스트를  for문으로 불러오는것이
어떤식으로 구현해야 될지 전혀 감이 안잡힙니다...
꼭 답변 부탁드립니다.  


////첫번째 클래스/////////////////////////////////////////
type
  TTestCaseClass = class(TObject)
     MODEL_ID      :String;
     PROJECT_ID    :String;
     TESTCASE_OID  :String;

  private
    { Private declarations }
  public
    { Public declarations }
      Constructor Create ;
      procedure  Assign(PARAM : TTestCaseClass);
  end;

////두번째 클래스/////////////////////////////////////////
type
  TTestClass = class(TObject)
     PLATFORM       :String;
     TESTRANGE      :String;
     TESTMODE       :String;
     PACKAGE        :String;
     TEST_CLASS     :String;
     METHOD         :String;
     PATH           :String;
     TESTCASE       :String;
     TESTCASE_OID   :String;
     TESTCASE_CLASS :String;
     TESTCASE_VER   :String;
     KEYWORD        :String;
     ASSERTION      :String;
     DESCRIPTION    :String;
     RESULT_DESC    :String;
     RESULTONLY     :String;

     RESULT_COUNT   :String;
     REGDATE        :String;
     INFO_UPDATE    :String;

     pTESTCASE      :Pointer;

  private
    { Private declarations }
  public
    { Public declarations }
      Constructor Create ;
      procedure  Assign(PARAM : TTestClass);
  end;