No lo pongas en el OnCreate del formulario principal, sino en el DPR del proyecto y, si es necesario ejecuta el Application.Run y, sino, no
Código Delphi
[-]
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' ;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
if CompareDate(Trunc(Date),Trunc(StrToDate('05/08/2004'))) <> 1 then
Application.Run;
end.