procedure TForm1.VendeItem1Click(Sender: TObject);
Var Codigo, Descricao, AliqICMS : String;
        Qtd, Valor : Real;
begin
    Codigo := edtcodigo.text;
    Descricao := edtdescricao.text;
    AliqICMS := edticms.text;
    Qtd := StrToFloat(edtquantidade.text);
    Valor := StrToFloat(edtvalor.text);
    ACBrECF1.VendeItem(Codigo, Descricao, AliqICMS, Qtd, Valor);
end;