Yes:

IBConfig: TIBOConfigService;

Modes Supported:

TShutdownMode = (Forced, DenyTransaction, DenyAttachment);


ibConfig.Active := TRUE;
ibCOnfig.ShutdownDatabase(Forced,Secs);
Sleep(Secs * 1000);
ibConfig.Active := FALSE;