[[Io]]

La propuest queda así:

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;
  try
    IBS1.ExecuteScript;
  except
    ShowMessage('Hay un error en la ejecución');
  end;
  ibT1.Commit;
end;

El resultado es el mismo