with AdoQuery do begin
sql.Text:='Insert into bvnat01 (contrato, codemp, tipre, fechapre, '+
'fechamort, forpag, numsem, montopre, balpre, amopre) '+
'values(:contrato, :codemp, :tipre, :fecha, :fecha:, '+
':forpag, :numsem, :monto, :monto, :monto)'
with Parameters do begin
inc(contrato);
ParamByName('contrato').value:=IntToStr(contrato);
ParamByName('fecha').Value:=Now;
ParamByName('forpag').Value:='S';
ParamByName('monto').Value:=edtdesc.Value;
ParamByName('codemp').Value:=AlignEdit1.Text;
ParamByName('tipre').Value:='7';
ParamByName('numsem').Value:=numsem;
end;
ExecSQL;
end;