Problemas con codigo en delphi

[Nelly]

Hola necesito que me ayuden a componer este codigo que esta hecho en delphi 7 y utilizando firebird como base de datos la cuestión es la siguiente:
Este codigo es para realizar una busqueda dentro una tabla llamada eventos de la base de datos, la tabla contiene información de meses atras y tambien información vigente, lo que quiero hacer es basandome en 3 componentes de delphi tales componentes son los TDBLookupComboBox. Tengo 3 componentes de este tipo los cuales utilizo para la fecha,el tipo de evento y para el municipio, lo que quiero exactamente es que cuando seleccione un tipo de evento, un municipio X y una fecha(Pero en la fecha hay una condición, quiero que muestre solo la fecha que eligire en el combo, no quiero que me arroje 10 o más fechas, solo la fecha del combo seleccionada.), al termino de la elección, cuando presione el boton Buscar que me arroje los datos seleccionados.
Quizá este ejercicio sea muy sencillo para algunos, pero en mi caso no opino lo mismo y si me ayudarian mucho si alguien respondiera a mi petición.
Muchas gracias.....

P.D. Si de plano estoy super mal en la logica de este ejercicio, se aceptan criticas constructivas

procedure Tfrmrep.btnbuscarClick(Sender: TObject);
var
evento:integer;
begin
evento:=cmbevento.keyvalue;
if evento in [1,2]>'' then begin
qryrep.Active:=false;
qryrep.SQL.Clear;
qryrep.SQL.Add('select * from eventos');
qryrep.SQL.Add('where cve_evento=:cve_evento');
qryrep.ParamByName('cve_evento').AsInteger;
qryrep.Active:=true;
end else begin
if (cmbevento.KeyValue>'') or (cmbfechevento.DateTime>'') or (cmbmunicipio.KeyValue>-1) then begin
qryrep.SQL.Clear;
qryrep.SQL.Add('select * from eventos where cve_mpo=:cve_mpo ');
qryrep.SQL.Add('where cve_evento starting with: clave and ');
qryrep.SQL.Add('fecha_evento starting with: fecha and ');
qryrep.ParamByName('clave').AsInteger:=cmbevento.KeyValue;
qryrep.ParamByName('fecha').AsDateTime;
qryrep.ParamByName('cve_mpo').AsInteger:=cmbmunicipio.KeyValue;
qryrep.Active:=true;
end else begin
ShowMessage('');
end;
end;
end;