[vladimirse]

В общем разрулил следующим образом:

Код:

procedure TForm3.DBLookupComboBox1DropDown(Sender: TObject);
begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('SELECT * FROM `Passwords`.`Objects`');
  SQLQuery1.Open;
end;

procedure TForm3.DBLookupComboBox1Select(Sender: TObject);
var
  value: string;
begin
  value:=DBLookupComboBox1.KeyValue;
  SQLQuery2.Close;
  SQLQuery2.SQL.Clear;
  SQLQuery2.SQL.Add('SELECT `IDType` FROM `Passwords`.`Objects` WHERE `IDObject` ='+value+'');
  SQLQuery2.Open;

  ShowMessage(SQLQuery2.FieldByName('IDType').AsString);

end;