[vtdeleon]

Saludos

Prueba

Código Delphi [-]
procedure TFrmBuscarVehiculo.SpeedButton1Click(Sender: TObject);
 var consulta : string;
begin
  consulta:='Select * from BitacoraVehiculos';
  if edit1.Text<>' ' then begin
    Query1.Sql.Text:=consulta+ ' fechadeservicio=:fecha';
    Query1.ParamByName(fecha).asDate:=StrtoDate(fecha.text);
//Suponiendo que este campo toma Valores String
  end else 
  if edit2.Text<>' ' then begin
    Query1.Sql.Text:=consulta+ ' numerofactura=:fact'
    Query1.ParamByname('fact').AsInteger:= StrtoInt(edit2.text);
  end else
  if edit3.Text<>' ' then begin
    Query1.Sql.Text:=consulta+ ' importe=:importe'
    Query1.ParamByName('importe').Asfloat:=StrtoFloat(edit3.text);
  end;
//     query1.SQL.Text:=consulta;
//     query1.ExecSQL;//<==Esto no se utiliza para una sentencia de Consulta.
  Query1.Open;
 end;

Intenta esto