[maxzama]

El Error que tenia en todo el codigo era:

Código Delphi [-]
DMODULO.ASISTENCIA_MADRE.Open;

Código Delphi [-]
if application.MessageBox('DESEA GUARDAR?','guardar un Registro',
     MB_ICONQUESTION OR MB_YESNO) = ID_YES then
       begin
           Dmodulo.ASISTENCIA_MADRE.Close;
           Dmodulo.ASISTENCIA_MADRE.SQL.Text:='insert into ASISTENCIA_MADRE select * from DiasMadre';
           DMODULO.ASISTENCIA_MADRE.Open;

           Dmodulo.ASISTENCIA_MADRE.ExecSQL;
               Dmodulo.ibt.Commit;  // ibt ibtrasaction
               Dmodulo.ASISTENCIA_MADRE.SQL.Clear ;
               Dmodulo.ASISTENCIA_MADRE.SQL.Add('select * from ASISTENCIA_MADRE ');
               Dmodulo.ASISTENCIA_MADRE.Open;

           SHOWMESSAGE('El Monto a sido Insertado');
       end;

// era por algo tonto(que no corria), y lo tenia en mis narices y no lo vi.

Gracias por la Ayuda panal. y la pasiencia...