ActiveDelphi

[mdcampos]

procedure Tf_inseri_balanca.EdCodigoProdutoToledoChange(Sender: TObject);
var
vTextoCodigo,vCodigoProduto:string;
vValor, vPeso, vPrecoKG:Currency;
begin
sql_pesquisa.Open;
vCodigoProduto:=sql_pesquisaest_codproduto.Text;
vTextoCodigo := EdCodigoProdutoToledo.Text;
vPrecoKG := StrToFloat(EdPreco.Text);
if (Length(vTextoCodigo)= 13) and (vTextoCodigo[1]='2') then
begin
EdCodigo.Text :='';
EdPeso.Text := '0.000';
EdValor.Text := '0.00';
vValor := StrToFloat(copy(vTextoCodigo,8,5))/100;
vCodigoProduto := copy(vTextoCodigo,4,4);
EdCodigo.Text := FormatFloat('', StrToFloat(vCodigoProduto));
EdPeso.Text := FormatFloat(',0.000', vValor / vPrecoKG);
EdValor.Text := FormatFloat(',0.00', vValor);
with sql_pesquisa do
begin
Close;
SQL.Text :='select * from ESTOQUE WHERE est_codproduto LIKE :est_codproduto';
Params[0].AsString := '%'+EdCodigo.Text+'%';
sql_pesquisa.Open;
Dm.tb_Estoque.Open;
if (Dm.tb_Estoque.Locate('est_codproduto',sql_pesquisaest_codproduto.value,[loPartialKey,loCaseInsensitive]))then

end
end;
end;

o editpeso só esta pegando o valor certo na segunda pesquisa

alguém pode me da uma força ai