1. Change 나 CloseUp, Select 등 상관없습니다.
2. 어떻게 하시냐 나름인데 제 경우에는 아래처럼 STringList 를 생성해서 씁니다..
    ComboBox나 memo나 listbox....등등 하나더 생성하시던가, 변수로 꼭 가지고 계셔야 겠다면 배열변수를 쓰시던가 하시기 나름이지만 변수보다는 컴퍼넌트를 하나 더 생성하시길 추천합니다..;;

  private
    { Private declarations }
    gvslSTOP_CODE : TStringList;

procedure Tform1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  gvslSTOP_CODE.Free;
end;

procedure Tform1.FormCreate(Sender: TObject);
begin
    gvslSTOP_CODE  := TStringList.Create;
    with query1 do
    begin
         Close;
         SQL.....
         Open;      
    end;
    ufSetDropDownListClass(fDM.qryTemp,'32',gvslSTOP_CODE,cmbSTOP_CODE);
end;

procedure ufSetDropDownListClass(pQuery : TOraQuery; pClassCode: string;
  pString : TStringList; pTargetControl : TCustomCombo);
var
  sTempData : String;
begin
    if pTargetControl <> nil then pTargetControl.Items.Clear;
    with pQuery do begin
        Close;
        sTempData := 'SELECT * FROM CODE_D  ' +
                     ' WHERE CODE_ID = ''' + pClassCode + ''' ORDER BY CODE';
        SQL.Text := sTempData;
        Open;
        while not EOF do begin
            pString.Add(Fields[1].AsString);
            if pTargetControl <> nil then
                pTargetControl.Items.Add(Fields[2].AsString);
            Next;
        end;
        if pTargetControl <> nil then pTargetControl.ItemIndex := 0;
    end;
end;

procedure Tform1.Button1Click(Sender: TObject);
begin
      with query2 do
      begin
          Close;
          SQL.....
          SQL.add( where aaa = '''+gvslSTOP_CODE.Strings[cmbSTOP_CODE.ItemIndex]+''' );
          Open;
      end;
end;

답변 너무 감사합니다.
TStringList  컴포넌트를 찾아 보았는데 못찾겠더라구요ㅠㅠ
다시 한번 찾아서 열심히 공부해 보겠습니다.

안녕하세요..

TStringList 는 컴포넌트가 아니고, class 입니다.

classes unit 에 선언되어 있지요..

uses 에 classes 가 포함되어 있는지 확인하시고 아래 처럼 그냥 쓰시면 됩니다.

대충예제)

var
  stringList : TStringList;
begin
  stringList := TStringList.Create;
  stringList.Add('룰루~');
  ShowMessage(StringList.Strings[0]);
  ...
  FreeAndNil(StringList);

참고하시고 즐거운 프로그래밍 하시길~