Alqoritm, xassələri və təsvir üsulları

fənlərin adlarını daxil edin (bu adları koddarı da daxil etmək olar bu halda hər
bir fənn üçün prosedurda ListBoxl. Items. Add - İnformatika1) ; və s. yazmaq 
lazımdır). Formanın boş sahəsində mausun döyməsini iki dəfə basaraq yunitə 
aşağıdakı kodları yazın.
procedure TForml.FormCreate(Sender: TObject);  
begin
Labell.FocusControl:=ListBoxl; 
 Label2.FocusControl:=ListBox2; 
ListBoxl.Sorted:=False; // Düzləndirmə qadağan 
ListBox2.Sorted:=False; // edilir 
ListBoxl.MultiSelect:=True; // Bir neçə elementin 
ListBox2.MultiSelect:=True; // seçilməsinə icazə verilir 
ListBoxl. ExtendedSelect: =True; // Klaviatura ilə elementin  
ListBox2. ExtendedSelect: =True; // seçilməsinə icazə verilir 
ListBox2.Clear; 
ListBoxl. DragMode :=dmAutomatic; //Mausla elementlərin 
// yerlərinin dəyişdirilməsi 
ListBox2. DragMode: =dmAutomatic; //əməliyyatını avtomatik
// başlamağa icazə verilir 
end;
Kodlara əlavə edilmiş şərhlər və hər bir xassənin indiyədək verilmiş ətraflı izahı 
bu prosedurun yerinə yetirdiyi əməliyyatları dərk etməyə imkan verir.
Buttonl düyməsi üzərində mausun düyməsini iki dəfə basaraq seçilmiş 
elementləri ikinci siyahıya köçürən proseduru yaradın:
procedure TForml.btnRightClick(Sender: TObject) 
 Var
i:Integer;  
begin
for i:= ListBoxl.Items.Count-1 downto 0 do
if ListBoxl.Selected [1] then
begin
ListBox2.Items.Add(ListBoxl.Items[i]);   
ListBoxl.Items.Delete(i);