Insert Key and Value In Combobox, (Id dan Nama) Delphi

Sahabat kuwud, ada beberapa pertanyaan yaitu bagiamana cara membuat Combobox yang dapat memuat key (kunci kode) dan value (nilai yang akan ditampilkan dalam Combobox) ini saya berikan contoh yang sangat sederhana, nanti kalau sudah paham silahkan dikembangkan sendiri, akan kelihatan seperti Gambar dibawah ini.

berikut adalah kodenya untuk keseluruhan dalam unit:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    KelompokCombobox: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure KelompokComboboxChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
TString = class(TObject)
private
fStr: String;
public
constructor Create(const AStr: String) ;
property Str: String read FStr write FStr;
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
constructor TString.Create(const AStr: String) ;
begin
inherited Create;
FStr := AStr;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin

kelompokComboBox.Clear;
begin
kelompokComboBox.Items.AddObject('Satu',
TString.Create('1'));
kelompokComboBox.Items.AddObject('dua',
TString.Create('2'));
end;
kelompokComboBox.ItemIndex := 0;

end;

procedure TForm1.KelompokComboboxChange(Sender: TObject);
  var idString: string;
begin
  idString:=TString(kelompokComboBox.Items.Objects[kelompokComboBox.ItemIndex]).Str;
  ShowMessage(idString);
end;

end.