Delphi Lazarus прекратить выполнение программы через 15 секунд

[Денис13]

Как сделать так, чтобы выполнение работы прекратилось через 15 секунд после её начала

[pray_driver]

На лазаре вроде так:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private

  public

  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.FormShow(Sender: TObject);
begin
    Timer1.Interval:= 15000;  // Свойство таймера, которое определяет 
//интервал времени в миллисекундах, 
//который должен пройти от включения таймера до наступления события onTimer.
// Проверил, поставил 15000 - получил ровно 15 секунд

end;

procedure TForm1.Timer1Timer(Sender: TObject); //Процедура, вызываемая после отсчета interval
begin
  Form1.Close;
end;

initialization
  {$I unit1.lrs}

end.