Pesquisa em Delphi

//Busca por data
dm.cdsmatricula.close;
dm.dsmatricula.close;
//Se a pesquisa for por Radio Button basta colocar o código a seguir e descomentalo:
//if (RadioButton2.Checked=true) then begin
dm.dsmatricula.CommandText:='SELECT * FROM "Matricula" WHERE "DataMatricula" = :a';
dm.dsmatricula.Params[0].:=edit1.Text;
dm.dsmatricula.Open;
dm.cdsmatricula.open;
end;