procedure TForm1.FormActivate(Sender: TObject); begin Table1.FindKey(['Baldwin']); DbLookUpComboBox1.DropDown; end;