1:

combobox_video.items.assign(StrL5)					

1:
2:
3:
4:

for i := 1 to ComboBox1.Capacity do
 begin
  ComboBox2.Lines.Add(ComboBox1.Lines[i]);
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

for i := 1 to ComboBox1.Capacity do
 begin
  for k := 1 to ComboBox2.Capacity do
   begin
    if CompareStr(ComboBox1.lines[i],ComboBox2.Lines[k]) = 0 then
      begin
       {Anweisungen wenn werte gleich sind}
      end;
   end;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:

if Edit1.text <> ' ' then
 begin
  {Anweisungen wenn Textfeld nicht leer}
 end
else
  if MessageDlg('es sind noch nicht alle werte übertragen',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
   begin
    usw. ....