Items einer Listbox an einer Combobox übergeben???

[mlspider]

Das einzige Ereignis ist DropDown:

Delphi-Quellcode:

procedure TBrowser.ComboBox1DropDown(Sender: TObject);
var i:Integer;
begin
 with ComboBox1 do begin
  if Text = '' then
  begin
   Items.Delete(ix);
    ix:=-1
  end else begin
   for i := 0 to Items.Count-1 do
    if Text = Items[i] then Exit;

    Items.Add(Text)
  end
 end
end;