[ecfisa]

Hola.

Como te sugiere iMia, los combos cumplen muy bién la tarea que buscas.

Código Delphi [-]
...
implementation

// cargar nombre y código de perfil
procedure LoadComboBox(DS: TDataSet; CB: TComboBox);
begin
  DS.DisableControls;
  try
    DS.First;
    CB.Clear;
    while not DS.Eof do
    begin
      CB.AddItem(DS.FieldByName('NOMBRE_PERFIL').AsString,
        TObject(DS.FieldByName('CODIGO_PERFIL').AsInteger));
      DS.Next;
    end;
    DS.First;
  finally
    DS.EnableControls;
  end;
end;

// devuelve el código de perfil actual
function GetProfileCode(CB: TComboBox): Integer;
begin
  Result := Integer(CB.Items.Objects[CB.ItemIndex]);
end;

 { Ejemplo de uso }
procedure TForm1.FormCreate(Sender: TObject);
begin
  Tu_DataSet.Open;
  LoadComboBox(Tu_DataSet, ComboBox1);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  cb: TComboBox;
  code: Integer;
begin
  cb   := TComboBox(Sender);
  code := GetProfileCode(CB);
  ShowMessage(Format('%s: %d',[cb.Items[cb.ItemIndex], code]));
end;

Saludos