with QueryDataModule.CiudadZQuery do
begin
If active then close;
SQL.Clear;
Sql.Add('Select * from ciudad where ciudad.ID_provincia = :Que');
ParamByName('Que').AsAnsiString:= ProvinciaDBLookupComboBox.KeyValue;
Open;
Active:=True;
Filter:= 'Ciudad Like '''+CiudadEdit.Text '*''';
Filtered:= True;
end;