Busqueda de registro

[edwin1]

Saludo para todos!!!!

estoy haciendo una busqueda en un fom secuntario utilisando la siguiente rutina:
Qry_BuscarCatalogo.Close;
Qry_BuscarCatalogo.Prepared;
Qry_BuscarCatalogo.Parameters.ParamByName('Cuenta').Value := Edit1.Text;
Qry_BuscarCatalogo.Open;
if Qry_BuscarCatalogo.IsEmpty then
ShowMessage('Cuenta no Existe');

Lo que quiero es cuando me localise el registro y me lo presente en un dbegrid voy a selecionar el registro y luego hare un clik en el poton de aceptar para que me muestre el registro ya buscado en el fom principal.

mucha gracias por su ayuda y pasen un feliz resto del dia