[[Io]]

Saludos a todo el Foro.

No he podido encontrar ninguna ayuda sobre TIbscript, con lo cual estoy dando palos de ciego.
Aquí os dejo un código, haber si me podéis decir que es lo que esta mal, por que no me funciona. No me da ningún tipo de error, y la validación es correcta pues no sale el cuadro de dialogo, pero no funciona.

procedure TForm4.FormActivate(Sender: TObject);
begin

  ibT1.Params.Clear;
  ibT1.Params.Add('read_committed');
  ibT1.Params.Add('rec_version');
  ibT1.Params.Add('nowait');
  ibT1.DefaultDatabase:=dmDatos.ib_Global_Database;

  ibS1.Database:=dmDatos.ib_Global_Database;
  ibS1.Transaction:=ibT1;
end;



procedure TForm4.Button1Click(Sender: TObject);
begin
  ibS1.Script.Clear;
  ibS1.Script.Add('SET TERM ^;');
  ibS1.Script.Add('delete from CONTROL_BD^');
  ibS1.Script.Add('insert into CONTROL_BD (VER_BD)');
  ibS1.Script.Add('values('+QuotedStr('k-kk.kk.kk')+')^');
  ibS1.Script.Add('SET TERM ;^');

  ibT1.StartTransaction;

  if ibS1.ValidateScript then
    ibS1.ExecuteScript
  else
    showmessage('Error');

  ibT1.Commit;
end;

Utilizo D6,Fb15, dbx.

ibT1 -> TIBTransaction
ibS1 -> TIBScript
dmDatos.ib_Global_Database -> TIBDatabase

Esperando quedo...
Muchas gracias