Лимит на время выполнения программы

Code:

{

In der Projekt Datei (.dpr):

In your project's file (.dpr):

}

uses

  Forms, Sysutils, Dialogs,

  MyProgr in my_prog1.pas {Form1};

const

  email = Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.';

  homepage = 'https://www.myhomepage.com';

// Gultigkeit auf 21. April begrenzen.

YearExp = 2003;

  MonthExp = 4;

  DayExp = 21;

function CheckDate(y, m, d: Integer): Boolean;

begin

  Result := True;

  if (Date > EncodeDate(y, m, d)) then

  begin

    ShowMessage('End of usage exceeded. Download a new'+

                 'version at' + ^j + homepage+ ^j + ' or contact: ' + email);

  Result := False;

  // halt;

end;

end;

{$R *.RES}

begin

  if CheckDate(YearExp, MonthExp, DayExp) then

  begin

    Application.Initialize;

    Application.Title := 'Some Title';

    Application.CreateForm(TForm1, Form1);

    Application.Run;

  end;

end.