[The Cid James]

Buenas gente necesito asignar el valor del locate del siguiente codigo a una variable de tipo integer, el problema es que siempre me devuelve 0 el resultado

Código Delphi [-]
procedure Tfstock.Button1Click(Sender: TObject);
begin
  if fmodulo.tProductos.Locate('id_producto', fmodulo.qProductos['id_producto'], [])
    then
      fstockproductos := Tfstockproductos.Create(self);
      fstockproductos.ShowModal;
      fstockproductos.Bsprestar.Visible := false;
      idproducto := fmodulo.qProductos.Fields.FieldByName('id_producto').AsInteger;
end;

Este valor seria el parametro para editar las cantidades de esta forma

Código Delphi [-]
procedure Tfstockproductos.BspaumentarClick(Sender: TObject);
begin
fmodulo.qProductos.Active := true;
fmodulo.tProductos.Active := true;
if fmodulo.tProductos.Locate('id_producto', fstock.idproducto, [])
  then
    begin
      fmodulo.tProductos.Edit;
      fmodulo.tProductos.Fields.FieldByName('Stock').AsInteger := fmodulo.qProductos.Fields.FieldByName('Stock').AsInteger + StrToInt(Estockproductos.text);
      fmodulo.tProductos.Post;
      fmodulo.qProductos.Refresh;
      close;
      fmodulo.tProductos.Active := false;
      fstock.idproducto := 0;
end
else
 ShowMessage('no encontrado '+ '- ' +IntToStr(fstock.idproducto));
end;