Class TPiForm (unit main)

Inherits from

TForm

Constructors



Functions

procedure AbortBitBtnClick(Sender: TObject);


procedure CloseBitBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

Could someone tell my why I get an exception when I un-comment the following line.

procedure OkBitBtnClick(Sender: TObject);


procedure PiTimerTimer(Sender: TObject);


Properties

Events

Variables

AbortBitBtn : TBitBtn;


CalculatingLabel : TLabel;


CalculatingNameLabel : TLabel;


CloseBitBtn : TBitBtn;


FinishTimeLabel : TLabel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


OkBitBtn : TBitBtn;


PiProgressBar : TProgressBar;


PiTimer : TTimer;


ProcessNameLabel : TLabel;


Start18Label : TLabel;


Start239Label : TLabel;


Start57Label : TLabel;


StartNameLabel : TLabel;


StartPILabel : TLabel;



Constructors


Functions


procedure AbortBitBtnClick(Sender: TObject);


procedure CloseBitBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

Could someone tell my why I get an exception when I un-comment the following line. I would have assumed that the Free was necessary? calculate_pi.Free;


procedure OkBitBtnClick(Sender: TObject);


procedure PiTimerTimer(Sender: TObject);


Properties


Events


Variables


AbortBitBtn : TBitBtn;


CalculatingLabel : TLabel;


CalculatingNameLabel : TLabel;


CloseBitBtn : TBitBtn;


FinishTimeLabel : TLabel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


OkBitBtn : TBitBtn;


PiProgressBar : TProgressBar;


PiTimer : TTimer;


ProcessNameLabel : TLabel;


Start18Label : TLabel;


Start239Label : TLabel;


Start57Label : TLabel;


StartNameLabel : TLabel;


StartPILabel : TLabel;