Izgled forme rešenja ovog zadataka prikazan je na donjoj slici.

   Forma koristi novu komponentu ListBox koja sadrži niz stavki u našem primeru brojeva i omuguće da se izabere jedna(a može i više stavki). Prtitskom na svojstvo Items otvoriće se ekran String List Editor pomoću kojeg upišemo članove te liste što je prikazano na donjoj slici.

   Glavni deo koda ovog programa je sledeći:

.
.
.
procedure TForm1.ListBox1Click(Sender: TObject);
Var
  i:integer;
begin
i:=ListBox1.ItemIndex;
Edit1.Text :=IntToHex(StrToInt(ListBox1.Items[i]),2);
end;

   Objasniti ćemo glavne karakteristike ovog programa:

• U proceduri ListBox1Click(koja se poziva klikom na neki broj u listi) odredimo redni broj pozvanog broja(i:=ListBox1.ItemIndex) a zatim prikažemo njegovu heksa prezentaciju u polju Edit1. Za to koristimo funkciju IntToHex koja pretvara celi broj u heksadecimalni, kao i funkciju StrToInt koja odabreni broj iz ListBox-a(koji je string) pretvori u ceo broj.

  Kompletan kod programa možete preuzeti ovde.