with modulodedatos.AgregarPagos do begin
Active:=false;
SQL.Clear;
SQL.Text:='insert into Pagos(Clave_Pago,Descripcion_Pago,Cargo_Pago,Observaciones_Pago)
values (:CPago,:descrip,:cargo,bserv)';
ParambyName('Cpago').Asstring:=Edit1.Text;
ParambyName('descrip').Asstring:=Edit2.Text;
ParambyName('cargo').Asstring:=Edit3.Text;
ParambyName('observ').Asstring:=Edit4.Text;
ExecSQL;
end;