[Delphos]

El ejemplo de antes funciona de maravilla muchas gracias.

Esta consulta tambien funciona pero ¿Esta bien estructurada, no?.

Ejemplo:

 
    SQL:='INSERT INTO Horarios (Servicio,TiempoI,TiempoF,Horas) VALUES
            (:Serv,:TInicio,:TFinal,:THoras)';
    If pFIBTransaction1.InTransaction then
       pFIBTransaction1.Commit;
    pFIBDataSet1.Open;
    pFIBDataSet1.InsertSQL.Clear;
    pFIBDataSet1.SQLs.InsertSQL.Add(SQL);
    pFIBDataSet1.QInsert.ParamByName('Serv').AsString := txtServ.text;
    pFIBDataSet1.QInsert.ParamByName('TInicio').AsString := TI;
    pFIBDataSet1.QInsert.ParamByName('TFinal').AsString := TF;
    pFIBDataSet1.QInsert.ParamByName('THoras').AsString := THM;
    pFIBDataSet1.QInsert.ExecQuery;
    pFIBTransaction1.Commit;
    pFIBDataSet1.Close;

Un saludo.