[marcoi]

mi solucion fue la siguiente programandola en un boton
procedure TForm1.Button6Click(Sender: TObject);
begin
if radiobutton1.Checked =true then
begin
datamodule1.productos.SetKey;
datamodule1.productos.FieldValues['codigo']:=edit1.Text;
if not datamodule1.productos.GotoKey then
begin
messagedlg('NO EXISTE ESTE CODIGO',mtinformation,[mbok],0);
end;
end;
if radiobutton2.Checked= true then
begin
datamodule1.productos.Locate('producto', edit1.Text,[loPartialKey,loCaseInsensitive]);

end;
end;