[enchoneg23]

Empezado por look

¿te as fijado si guarda la informacion en la Base de Datos realmente.?,si no es haci , bamos a tener que ir paso por paso para ver donde esta el problema, si es posible ,pon algo de tu codigo para entender mejor donde esta el problema.

Ese es precisamente el problema que no guarda en la base de datos.
aqui dejo un poco del codigo que uitilizo al momento de guardar

procedure TFormularioUnicoReclamacion.Aceptar;
var
vErrores: String;
vArreglo: TStringList;
begin
ToolBar1.SetFocus;
vArreglo:= TStringList.Create;

if Rips2.ValidarFormularioReclamacion(vErrores) then
begin
if Trim(mRelatoAccidente.Lines.Text) <> '' then
begin
if vTipoConexion = 'I' then
begin
if vIPServidor <> '' then
Rips2.dsFormularioReclamacionFUR_RUTAARCHIVO.Value:= '\\' + vIPServidor + '\Socrates\Datos\Fur\' + IntToStr(Rips2.dsFormularioReclamacionFUR_CODIGO.value) + '.fur'
else
Rips2.dsFormularioReclamacionFUR_RUTAARCHIVO.Value:= '.\Datos\Fur\' + IntToStr(Rips2.dsFormularioReclamacionFUR_CODIGO.value) + '.fur';
end
else
Rips2.dsFormularioReclamacionFUR_RUTAARCHIVO.Value:= vDireccionDatos + '\Fur\' + IntToStr(Rips2.dsFormularioReclamacionFUR_CODIGO.value) + '.fur';


Rips2.AceptarRegistro(Rips2.dsFormularioReclamacion);

vArreglo.AddStrings(mRelatoAccidente.Lines);
try
vArreglo.SaveToFile(Rips2.dsFormularioReclamacionFUR_RUTAARCHIVO.Value);
except
Application.MessageBox(PChar('No se pudo guardar el archivo: '+Rips2.dsFormularioReclamacionFUR_RUTAARCHIVO.Value+#13#13#10'Verifique que exista la carpeta e intente guardarlo de nuevo'),PChar(Application.Title),MB_ICONERROR);
Exit;
end;

Rips2.dsFormularioReclamacion.Transaction.CommitRetaining;
end
else
MessageDlg('Debe ingresar el relato del accidente',mtError, [mbOk], 0);
end
else
MessageDlg(vErrores,mtError, [mbOk], 0);

vArreglo.Free;

Habilitar;
end;