1:

TComboBoxEx.ItemsEx.Items[1].data					

1:
2:
3:
4:
5:
6:

TExtItemData = record
  feldname: string;
  position: integer;
  id: integer;
  ...
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:

type
  pExItemData = ^TExtItemData;
  TExtItemData = record 
    feldname: string; 
    position: integer; 
    id: integer; 
    ... 
  end;

Um einen Zeiger zu erzeugen mußt Du folgendermassen vorgehen :

Var pData : pExItemData;
begin
  New(pData);
  With pData^ do begin
    //Werte zuweisen
  end;
  // Zeiger in ComboBox ablegen
  myCombo.items.addobject('Anzeige-Namen',pData);
  // .....
  // Zeiger wieder auslesen(wahrscheinlich im OnChange Event der ComboBox

  if myCombo.itemindex > -1 then begin
    if myCombo.items.objects[myCombo.itemindex] <> Nil then begin
      pData := pExItemData(myCombo.items.objects[myCombo.itemindex]);
    end;
  end;

Was in diesem Bsp. nicht berücksichtigt wurde ist, dass für die Zeiger nur Speicher reserviert wurde mit New(s. oben), aber dieser Speicher muss bei Programmende wieder mit Dispose freigegeben werden.

Data