Error de Inserción con IBX

[MALBOTO22]

Estoy empezando a hacer uso de los componentes IBX, como prueba intento agregar un registro a una tabla pero me sale el siguiente error "EMPTY QUERY". Si alguien me puede indicar cual es mi error les agradezco o si me pueden indicar donde puedo encontrar información para la solución de mi problema les agradezco.

El codigo que uso es el siguiente:

 
...
type
  TForm1 = class(TForm)
    IB_TR: TIBTransaction;
    IB_DS: TIBDataSet;
    Image1: TImage;
    IB_DB: TIBDatabase;
    BitBtn1: TBitBtn;
    IB_TB1: TIBTable;
    IB_TB1COD_FTE: TIntegerField;
    IB_TB1COD_CLI: TSmallintField;
    IB_TB1CED_EMP: TIntegerField;
    IB_TB1HORA_INICI: TDateTimeField;
    IB_TB1HORA_FINAL: TDateTimeField;
    IB_TB1SEC_NUM: TSmallintField;
    IB_TB1NUM_HORAS: TFloatField;
    procedure BitBtn1Click(Sender: TObject);
 
....
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    try
        IB_DB.Connected := True;
    except
        Application.MessageBox('No se pudo establecer conexión con la Base de Datos','Información',MB_OK + MB_ICONINFORMATION);
        Application.Terminate;
    end;
    IB_TR.Active := True;
    IB_DS.Close;
    IB_DS.InsertSQL.Clear;
    IB_DS.InsertSQL.Add('INSERT INTO TU_PROGRA_VIGI(COD_FTE,COD_CLI,CED_EMP,HORA_INICI,HORA_FINAL,SEC_NUM,NUM_HORAS)VALUES (941,94,6464789,"12/30/1899 06:00","12/30/1899 18:00",1,12)');
    IB_DS.Open;
    IB_DS.Append;
    IB_DS.Insert;
    IB_DS.Post;
    IB_TR.Commit;
    Application.MessageBox('Actualización realizada con exito','Información',MB_OK + MB_ICONINFORMATION);
end;

De antemano, gracias por la colaboración que me puedan brindar.


Martin Bobadilla