구지 Db와 연결된것 않써도 되여...

//////////////////////////////////////////////////////////
// 콤보박스에 해당 상품코드-상품명 를 추가한다...
/////////////////////////////////////////////////////////
Function Fa_SetComBo_CodeItem(xCombo:TcomboBox;ls_Group1:String;ls_Group2:String;lb_ClearItem:Boolean;lb_DefaultItem:Boolean):Boolean;
var xQuery : Tquery;
begin
  // 공통 시스템코드 항목을 추가.
  Try
  xQuery := Tquery.Create(Application);
  xQuery.DataBaseName := DF_Alias_Name;
  xQuery.Sql.Add('Select F010GCD, F010FKN From CL010M@');
  xQuery.Sql.Add('Where F010HAK =:pGroup1 and F010JOB =:pGroup2 ');
  xQuery.ParamByname('pGroup1').AsString := ls_Group1;
  xQuery.ParamByname('pGroup2').AsString := ls_Group2;
  xQuery.open;
  if lb_ClearItem then
      xCombo.Items.Clear;
  if lb_DefaultItem then
     xCombo.Items.Add('전 체');
  While Not xQuery.EoF DO
  begin
    xCombo.Items.Add(xQuery.Fieldbyname('F010GCD').asstring+'-('+
                     xQuery.Fieldbyname('F010FKN').asstring+')');
    xQuery.Next;
  end;
  if xCombo.Items.Count > 0 then
     xCombo.Itemindex := 0;
  xQuery.Free;
  Result := True;
  Except
//     Showmessage('Fa_SetCombo_CodeItem()Error: '+ls_Group+':공통코드항목을 추가할수없습니다!!');
     xQuery.Free;
     Result := False;
  End;

end;


이런식으로 평션을 만들어서 사용하세요..

보시면 쉽게 이해가 갈듯 싶군요...

그럼 즐코...