전 이런식으로 하거 있읍니다  더 좋은 방법 있나여?

// 이름과 코드 넣기 함수
procedure TStringIn(Item:TStrings; CodeItem:TStringList; Query:TQuery; Field1,Field2:string);
begin
   Item.Clear;
   CodeItem.Clear;
   Query.First;
   while not Query.Eof do
   begin
    Item.Add(Query.FieldbyName(Field1).AsString);
    CodeItem.Add(Query.FieldbyName(Field2).AsString);
    Query.Next;
   end;
end;



//[[[[[[[[[[[[사용법]]]]]]]]]]]]]]]

//코드변수 선언
StringListCode :TStringList;

//FormCreate
StringListCode := TStringList.Create;

//FormClose
StringListCode.Free

//////// ComboBox1와  StringListCode 에 이름과 코드 넣기
begin
   sSql := ' select * from 테이블';
   // Query1.Open
   TStringIn(ComboBox1.Items, StringListCode, Query1, 'CommName', 'CommCode');
end;

////////// ComboBox1의 선택된 코드 알아내기
Showmessage(StringListCode[ComboBox1.ItemIndex])

콤보박스에 아이템을 추가 할때 add 함수를 쓰지 말구
AddObject 함수를 사용해 보세요..
팁란에서 사용하는 방법이 있던거 같은데..^^;;