Localizar no dbgrid entre datas


NO EVENDO ONCLICK DO BOTÃO COLOQUE:
ps: lembre que o DBGrid estar associado ao datasource,
para que apareça o resultado esperado.


var Inicio: String;
Final: String;
begin
If DateTimePicker2.Date <>=:pInicial and DATA<=:pFinal ORDER BY DATA';
DM.IBQuery1.ParamByName('pInicial').AsDateTime := StrToDate(Inicio);
DM.IBQuery1.ParamByName('pFinal').AsDateTime := StrToDate(Final);
DM.IBQuery1.Prepare;
DM.IBQuery1.Open;
end;
Label1.Caption := 'Total de Registros Localizados: ' + IntToStr(DM.IBQuery1.RecordCount)
end;