[rastafarey]

Como no se exactamente que quieres hacer aqui tiene un ejemplo de para un aaplicacion que corre sis formas y dependiendo de sis es nt corre como servicio y si no corre como aplicacion que puede ser en le icon try

Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Service2: TService};

{$R *.res}

begin
  {Function EsNt: Boolean;
  Var
    verInfo : TOSVERSIONINFO;
  Begin
    verInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
    Result := VerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT;
  End;}

  If Not EsNt Then
    Application.ShowMainForm = False;
  Application.Initialize;
  If Not EsNt
    Application.CreateForm(TForm1, Form1)
  Else
    Application.CreateForm(TService2, Service2);
  Application.Run;
end.