1:
2:

Edit1.text:='Wert';
Combobox1.text:='Name';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:integer;
    s:string;
begin
  s:=ComboBox1.Items[ComboBox1.itemindex];
  i:=pos('|',s);  // | im string suchen
//  ComboBox1.text := copy(s,1,i-1); wird nicht gehen, hier könnte dir aber das selberzeichnen weiterhelfen
  //den string aufsplitten
  edit2.text := copy(s,1,i-1);
  edit1.text:= copy(s,i+1,length(s)-i);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if not combobox1.droppeddown then
    ComboBox1.Canvas.TextOut(rect.Left,rect.top,edit1.text)
  else begin
    ComboBox1.Canvas.FillRect(rect);
    ComboBox1.Canvas.TextOut(rect.Left,rect.Top,ComboBox1.Items[index]);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Style:=csOwnerDrawFixed;  //!!!wichtig
  //teststrings
  ComboBox1.items.add('Name1|Wert1');
  ComboBox1.items.add('Name2|Wert2');
  ComboBox1.items.add('Name3|Wert3');
  ComboBox1.items.add('Name4|Wert4');
  ComboBox1.items.add('Name5|Wert5');
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var s,sname,swert:string;
    i:integer;
    //hab jetzt mal n paar Variablen verwendet, damit es etwas übersichtlicher wird.
begin
  with control as TComboBox do
    begin
      //hintergrund zeichnen
      //wenn selektiert, dann andere farbe
      if odselected in State then Canvas.brush.color:=clHighlight
                             else Canvas.brush.color:=color;
      Canvas.fillrect(rect);

      //text ausgeben
      s:=items[index];
      i:=pos('|',s);  // | im string suchen
      //den string aufsplitten
      sname := copy(s,1,i-1);
      swert := copy(s,i+1,length(s)-i);
      //der Text im Eingabe feld wird gezeichtnet
      if odComboBoxEdit  in State then
        begin
          //nur wert ausgeben
          canvas.textout(rect.Left+1,Rect.top+1,swert);
        end
       else
        begin
          //der Text der Liste wird gezeichnet -> alles ausgeben
          //du könntest die sache hier noch ausbauen, zb den Namen immer fett und den Wert immer normal schreiben usw.
          canvas.textout(rect.Left+1,Rect.top+1,s);
        end;
    end;
end;