Presne takto sa to robí...

príklad:

program MyApp;
 
 uses
   Forms,
   main in 'main.pas' {MainForm},
 
 {$R *.res}
 
 begin
   if (nejaká podmienka je splnená) then
   begin
     Application.Initialize;
     Application.CreateForm(TMainForm, MainForm) ;
     Application.Run;
   end else
   begin
     Application.MessageBox('Nemáte oprávnenie na spustenie aplikácie. Chýbné číslo.', 'Protected Delphi application') ;
   end;
 end.