[FMX] Combobox per Code mit Daten füllen

[Devil1925]

Mein Bisheriger Versuch sieht folgendermaßen aus und funktioniert leider nicht, kann mir da jemand verraten, wo ich da meinen Fatalen Fehler mache?

(Ich vermute irgendwo in der zuweisung Link zu Combobox)

Delphi-Quellcode:

procedure TForm14.Button2Click(Sender: TObject);
var BS:TBindSourceDB;
    CB:TCombobox;
    Link:TLinkListControlToField;
    Query:TUniQuery;
begin
  Query := TUniQuery.Create(Self);
  Query.Connection := Conn;
  Query.SQL.Text := 'Select * from Lieferan';
  Query.Open;


  BS := TBindSourceDB.Create(Self);
  BS.DataSet := Query;

  CB := TCombobox.Create(Rectangle1);
  CB.Parent := Rectangle1;

  Link := TLinkListControlToField.Create(Self);
  Link.AutoActivate := True;
  Link.Category := 'Schnelle Bindung';
  Link.Control := CB;
  Link.DataSource := BS;
  Link.FieldName := 'Name1';

  BS.DataSet.Open;
end;