Работа со COMBOBOX  и со  LISTBOX

После поставување на еден COMBOBOX1   со избришан Properties - Text, а потоа и еден  LISTBOX1  и една  LABEL1 со избришан Caption
се селектира  COMBOBOX1  (LISTBOX1)  и во Properties - ITEMS  (Tstrings) се притиска на фигурата со три точки па се појавува екран
следната форма:


во која се впишуваат опциите кои ќе се појавуваат при притискање на стрелката од COMBOBOX1 - от и на LISTBOX1 - от
Пример: прва, втора, трета итн. (една под друга одвоени со ENTER)        
Потоа со двоен клик врз COMBOBOX1  oд Formata (Form1) се отвора Процедурата што го опслужува овој   COMBOBOX1 

и тука се внесува следниот код:  if combobox1.ItemIndex=0 then               ItemIndex е редниот број на
        label1.Caption:='Izbrana e prva opcija';                                                    опцијата при што, редниот број 
if combobox1.ItemIndex=1 then                                                                         почнува од 0, па 1, па 2 итн.
        label1.Caption:='Izbrana e vtora opcija';
if combobox1.ItemIndex=2 then
        label1.Caption:='Izbrana e treta opcija';        

Потоа со двоен клик врз LISTBOX1  од Formata (Form1) се отвора Процедурата што го опслужува овој   LISTBOX1 
и тука се внесува следниот код:  

if listbox1.ItemIndex=0 then                                                                               ItemIndex е редниот број на
        label1.Caption:='Izbrana e prva opcija';                                                    опцијата при што, редниот број  
if listbox1.ItemIndex=1 then                                                                                почнува од 0, па 1, па 2 итн.
        label1.Caption:='Izbrana e vtora opcija';
if listbox1.ItemIndex=2 then
        label1.Caption:='Izbrana e treta opcija';