Firebird über NTService (Dienst) zugreifen funkt nicht

[Union]

Ja, dann musst Du das entsprechend austauschen:

Delphi-Quellcode:

begin
  if SvComfindCommand('EXE') then
  begin
    Forms.Application.Initialize;
    Forms.Application.CreateForm(TfrmDeinFormular, frmDeinFormular);
    Forms.Application.Run;
  end
  else
  begin
    SvCom_NTService.Application.Initialize;
    SvCom_NTService.Application.CreateForm(TSrvDeinService, SrvDeinService);
    SvCom_NTService.Application.Run;
  end;
end.