validar campos dblookupcombobox

[jonydread]

amigos que estoy asiendo mal al colocar el campo para validar al insertar los datos sale un error pero sin ese campo funciona todo bien
dejo el codigo si alguien me puede hechar una mano.

Código Delphi [-]
procedure TMainform.BitBtn2Click(Sender: TObject);
var
cItem: TListItem;
begin
if (dblookupcombobox1.KeyValue < 0) or (dblookupcombobox3.KeyValue < 0)  then
MessageDlg('Debe seleccionar todos los datos', mtWarning, [mbOk],0)
else

begin
  Zquery1.sql.text := 'insert into AsignadosA values (:Fecha,:Sierras,:Trabajador)';
  ZQuery1.ParamByName('Fecha').AsDate := Datetimepicker1.Date;
  ZQuery1.ParamByName('Sierras').AsInteger := dblookupcombobox1.KeyValue;
  ZQuery1.ParamByName('Trabajador').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('Trabajador').AsString);
zquery1.next;
end;
end;
end;