[fedelphi]

Que grande roman, funciono perfectamente, muchisimas gracias por la ayuda

Le hice esto en el onclick

Código Delphi [-]
procedure TFAvierteBorraCirculante.BSiClick(Sender: TObject);
begin
  BSi.Tag:=1;
  Close;
end;

y asi en el onclosequery

Código Delphi [-]
procedure TFAvierteBorraCirculante.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if Bsi.tag=1then
  begin
    if ECantidad.Text<>''then
    begin
      CanClose:=True;
      ModalResult:=mrOK;
      FCantidad := StrToInt(ECantidad.Text);
    end
    else
    begin
      showmessage('Ingrese la cantidad de envases');
      CanClose:=False;
    end;
  end;

end;

y creo que asi queda completo
Fede