Fórum DBGrid #192863

Estou fazendu uma pesquisa eo resultado aparece no bdgrid

Eu preciso fazer o seguinte qnd eu clicar em um dos resultado
ele devera abrir outro form com os edits preenchidos com a item selecionado

EU coloquei esse codigo
ele abre o outor form so q com a primeira linha selecionada

procedure Tfrmconsulta.FormShow(Sender: TObject);
var
id:integer;
cmd : string;

begin

id:=frmbusca.dbgrid1.Fields[3].AsInteger;
showmessage(inttostr(id));
cmd:=´select *from produtos where id = id´;
// showmessage(cmd);
DM.QR.SQL.clear;
DM.QR.SQL.Add(cmd);
DM.QR.open;

txtid.text:=DM.QR.fieldbyname(´Id´).asString;
txtcodigo.text:=DM.QR.fieldbyname(´Cod´).asString;
txtdescricao.text:=DM.QR.fieldbyname(´Descr´).asString;
txtquantidade.text:=DM.QR.fieldbyname(´Qtd´).asString;
txtfornecedores.text:=DM.QR.fieldbyname(´Forn´).asString;
txtlocalizacao.text:=DM.QR.fieldbyname(´Local´).asString;
txtultimacompra.text:=DM.QR.fieldbyname(´Uc´).asString;



end;