[ecfisa]

Hola borlandpablo.

No sé con que componentes estas trabajando, pero en líneas generarles sería:

  XDatos->QCatalogos->Close();
  XDatos->QCatalogos->SQL->Clear();
  XDatos->QCatalogos->SQL->Add("INSERT INTO CATALOGOS(FECHA_ACTUAL)");
  XDatos->QCatalogos->SQL->Add("VALUES(:PFECHA)");
  XDatos->QCatalogos->ParamByName("PFECHA")->Value = Date();
  XDatos->QCatalogos->ExecSQL();

Por ejemplo, si estas utilizando ADO, la línea donde asignas el valor al parámetro sería:

   XDatos->QCatalogos->Parameters->ParamByName("PFECHA")->Value = Date();

Saludos.