[[eduarcol]]

Modifica el codigo asi:

Código Delphi [-]
procedure tfrmprincipal.guarda_otros_ing;
begin
  with frmotros_ing do
  with frmdata.st do
       begin
         sql.Text:='select * from otros_ing where cod_ing='+QuotedStr(cod_ing);
         open;
         if recordcount=0 then
            begin
              with frmdata.otros_ing do
                   begin
                     open;
                     Insert;
                     FieldByName('cod_ing').AsInteger:=0;
                     FieldByName('descripcion').AsString:=descrip_edit.Text;
                     FieldByName('monto').Value:=monto_edit.Value;
                     FieldByName('fecha').AsDateTime:=fecha.DateTime;
                     FieldByName('periodo').AsString:=cbo_periodo.Text;
                     Post;
                     close;
                     Transaction.CommitRetaining;
                     limpiar_otros_ing;
                     presenta_otros_ing;
                     application.MessageBox('Ingreso Guardado','Atención',+MB_ICONINFORMATION);
                   end;
            end
            else
            begin
              with frmdata.otros_ing do
                   begin
                     open;
                     if Locate('cod_ing',cod_ing,[])=true then
                        begin
                           Edit;
                           FieldByName('descripcion').AsString:=descrip_edit.Text;
                           FieldByName('monto').Value:=monto_edit.Value;
                           FieldByName('fecha').AsDateTime:=fecha.DateTime;
                           FieldByName('periodo').AsString:=cbo_periodo.Text;
                           Post;
                           close;
                           Transaction.CommitRetaining;
                           limpiar_otros_ing;
                           presenta_otros_ing;
                           application.MessageBox('Ingreso Actualizado','Atención',+MB_ICONINFORMATION);
                       end;
                   end;
             end;
       end;

y cuando inicializes Fecha.DateTime := Now;

ojo la hora no va a ser precisa