combobox item인가 거기에다 값넣으시고(문자) list 콤포넌트 써서 (코드) 입력후 combo선택시 index가져와서 list콤포넌트 에서 찾으면되는데
귀찮아서... 그냥 combobox 이용하여 입력여러개 받을수 있는 콤포넌트 만드시는게 편할듯 하군요..

items.values 에 넣지 마시고...
items.clear; 하신후, items.add 하세요.
또는 그냥 items.text 에다가 집어 넣으셔도 됩니다.

아래코드 참조하시면 도움될까요?
<!--CodeS-->
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Button1: TButton;
Button2: TButton;
ComboBox3: TComboBox;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Combobox1.Items.Clear;

Combobox1.Items.AddObject('aaa', TObject(1));
Combobox1.Items.AddObject('bbb', TObject(2));
Combobox1.Items.AddObject('ccc', TObject(3));
Combobox1.Items.AddObject('ddd', TObject(4));

Combobox2.Items.Clear;
Combobox2.Items.AddObject('AAA', TObject(LongInt(NewStr('A'))));
Combobox2.Items.AddObject('BBB', TObject(LongInt(NewStr('B'))));
Combobox2.Items.AddObject('CCC', TObject(LongInt(NewStr('C'))));
Combobox2.Items.AddObject('DDD', TObject(LongInt(NewStr('D'))));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
buffer1,buffer2 : String;
begin
buffer1 := IntToStr(LongInt(Combobox1.Items.Objects[Combobox1.ItemIndex]));
buffer2 := PString(Combobox2.Items.Objects[combobox2.ItemIndex])^;

ShowMessage(buffer1 + ' ' + buffer2);
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
i : Integer;
begin
for i := 0 to ComboBox2.Items.Count-1 do
DisposeStr(PString(ComboBox2.Items.Objects[i]));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Combobox3.Items.Clear;
Combobox3.Style := csDropDownList;
Combobox3.Items.Add('aaa' + ' ' + ':코드1');
Combobox3.Items.Add('bbb' + ' ' + ':코드2');
Combobox3.Items.Add('ccc' + ' ' + ':코드3');
Combobox3.Items.Add('ddd' + ' ' + ':코드4');
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i : Integer;
code,name : String;
begin
code := Trim(Copy(Combobox3.Text,1,Pos(':',ComboBox3.Text)-1));
name := Copy(Combobox3.Text,Pos(':',ComboBox3.Text)+1,Length(ComboBox3.Text));
ShowMessage(code + #13 + name);
end;

end.

<!--CodeE-->

콤보박스가 디비룩업콤보처럼 코드,명을 같이 쓸수가 없을거예요...
저도 콤보3처럼 사용많이 했어여... 좀 후잡하지만 저게 편한것 같아서...

아..
다들 정말 감사합니다.
이제 조금씩 이해 되는거 같아요... 정말 답답했는데..
너무 감사합니다^^