Frage zu einer DB Komponente

[Baly]

Moin liebe dp´ler

habe mal alles mögliche rumprobiert...

Ich komme einfach nicht darauf wie ich durch einen Klick es anzeigen lasse.

Delphi-Quellcode:

procedure TForm1.DBLookupList1Click(Sender: TObject);
begin
      DBBugnummer.DataSource                := DataSource1;
      DBBugnummer.DataField                 := 'Bugnummer';
      DBDatum.DataSource                    := DataSource1;
      DBDatum.DataField                     := 'Datum/Uhrzeit';
      DBTester.DataSource                   := DataSource1;
      DBTester.DataField                    := 'Tester';
      DBMailTester.DataSource               := DataSource1;
      DBMailTester.DataField                := 'E-Mail Tester';
      DBStatusTester.DataSource             := DataSource1;
      DBStatusTester.DataField              := 'Status Tester';
      DBPrioritaetTester.DataSource         := DataSource1;
      DBPrioritaetTester.DataField          := 'Priorität Tester';
      DBAnmerkungenTester.DataSource        := DataSource1;
      DBAnmerkungenTester.DataField         := 'Anmerkungen Tester';
      DBFehlermeldung.DataSource            := DataSource1;
      DBFehlermeldung.DataField             := 'Fehlermeldung';
      DBFehlerangaben.DataSource            := DataSource1;
      DBFehlerangaben.DataField             := 'Fehlerangaben';
      DBProgrammierer.DataSource            := DataSource1;
      DBProgrammierer.DataField             := 'Programmierer';
      DBMailProgrammierer.DataSource        := DataSource1;
      DBMailProgrammierer.DataField         := 'E-Mail Pro.';
      DBStatusProgrammierer.DataSource      := DataSource1;
      DBStatusProgrammierer.DataField       := 'Status Pro.';
      DBPrioritaetProgrammierer.DataSource  := DataSource1;
      DBPrioritaetProgrammierer.DataField   := 'Priorität Pro.';
      DBAnmerkungenProgrammierer.DataSource := DataSource1;
      DBAnmerkungenProgrammierer.DataField  := 'Anmerkungen Pro.';
      DBLookupList1.LookupSource            := DataSource1;
      DBLookupList1.LookupField             := 'Versionen';

      Table1.Locate('ID', DBLookupList1.FieldCount + 1 , []);

end;

Müsste aber schon die richtige richtung einschlagen oder seh ich das falsch ?

mfg Baly