validar campos dblookupcombobox

[jonydread]

con el mismo codigo como puedo evitar duplicar un campo lo estoy asiendo asi pero no me funciona
me dice logic error or missing database

Código Delphi [-]
procedure TMainform.BitBtn2Click(Sender: TObject);
var
cItem: TListItem;
begin
if (dblookupcombobox1.KeyValue = NULL) or (dblookupcombobox3.KeyValue = NULL)  then
MessageDlg('Debe seleccionar todos los datos', mtWarning, [mbOk],0)
else
begin
Zquery1.Close;
  zquery1.SQL.Text := 'SELECT * FROM AsignadosA where Sierras = dblookupcombobox1.KeyValue';
  zquery1.Open;
   if not zquery1.IsEmpty then
     raise exception.Create('Registro Existe')else
     begin
  Zquery1.Close;
  Zquery1.sql.text := 'insert into AsignadosA values (:Fecha,:Sierras,:Operario)';
  ZQuery1.ParamByName('Fecha').AsDate := Datetimepicker1.Date;
  ZQuery1.ParamByName('Sierras').AsInteger := dblookupcombobox1.KeyValue;
  ZQuery1.ParamByName('Operario').AsString := dblookupcombobox3.KeyValue;
  ZQuery1.ExecSQL;
  zQuery1.SQL.Clear;
  Zquery1.Close;
  zquery1.SQL.Text := 'SELECT * FROM AsignadosA';
  zquery1.Open;
  Listview2.Clear;
while not zquery1.Eof do
begin
cItem := Listview2.Items.Add;
cItem.Caption := zQuery1.fieldbyname('Fecha').AsString;
cItem.SubItems.Add(zQuery1.fieldbyname('Sierras').AsString);
cItem.SubItems.Add(zQuery1.fieldbyname('Operario').AsString);
zquery1.next;
end;
dblookupcombobox1.KeyValue := NULL;
dblookupcombobox3.KeyValue := NULL;
end;
end;
end;