【列表5.8】CrashTestDummy程序代碼。
{
   frmDummy - A simple program used by other demo programs for
      display and destruction...
}
unit frmDummy;
interface
uses
   SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, Libc,
   QStdCtrls, QExtCtrls;
type
   TDummyForm = class(TForm)
      Panell: TPanel;
      ExitBtn: TButton:
      DummyLabel: TLabel:
      procedure ExitBtnClick(Sender: TObject);
      procedure FormActivate(Sender: TObject);
   private
      { Private declarations }
   public
       { Public declarations }
   end;
var
   DummyForm: TDummyForm;
 Implementation

 {SR *.xfm}

 procedure TDummyForm. ExitBtnClick(Sender: TObject);
 begin
  Close;
 end;
 procedure TDummyForm. FormActivate(Sender: TObject);
 begin
  DummyLabel.Caption := 'Process ID: ' + IntToStr(getpid);
 end;
 end.