ShowPoints: = true ;; (true);: = MessageDlg ('Гру завершено. Ві відкрілі ВСІ зображення за' + # 13 + (m_min) + 'хвилин и' + inttostr (m_sec) + 'секунд.' + # 13 +
'Бажаєте спробуваті вновь? ", mtInformation, mbyesno, 6); but = 6 then;; TMainMemoryForm.OnStart; _started: = true;;; TMainMemoryForm.OnShowTime;, s: string; m_min < ; 10 then: = '0 '+ inttostr (m_min): = inttostr (m_min); m_sec <10 then: = '0' + inttostr (m_sec): = inttostr (m_sec); m_showpoints then_CurTime: = m + ': '+ s_CurTime: = m +' '+ s;. Caption: = m_curTime; _showpoints: = not m_showpoints;; TMainMemoryForm.OnRestart; _started: = false;. Enabled: = false;. Enabled: = false;. Enabled: = false;;; TMainMemoryForm.StartTimers;. Enabled: = true;. Enabled: = true;. Enabled: = true;; TMainMemoryForm.StopTimers;. Enabled: = false;. Enabled: = false;. Enabled: = false;; .. pasZastUnit;,,,, Messages, Mask, SysUtils, Variants, Classes, Controls,, ExtCtrls, stdctrls, checklst, comctrls, grids; = class (TForm): TImage;: TTimer; Image1Click (Sender: TObject); FormCreate (Sender: TObject); FormKeyPress (Sender: TObject; var Key: Char); Label1Click (Sender: TObject); Timer1Timer (Sender: TObject); FormCloseQuery (Sender: TObject; var CanClose: Boolean);
{Public declarations}: trect; _Path, m_FileName, m_AddText: string; _BackColor: TColor; _StartMode: boolean; _ToClose: boolean; Run (FileName: string =''); Run2;;: TZastFormN ; _Validations: array [1 .. 10] of string;
{$ R *. dfm} TZastFormN.Image1Click (Sender: TObject); not m_ToClose then;;; TZastFormN.Run (FileName: string =''); _ToClose: = true;;; TZastFormN . Run2; _ToClose: = false;;. Enabled: = true;; TZastFormN.Timer1Timer (Sender: TObject); m_ToClose: = true;;. Enabled: = false;; TZastFormN.Label1Click (Sender: TObject);;; TZastFormN . FormCloseQuery (Sender: TObject; var CanClose: Boolean); CanClose: = m_ToClose;; TZastFormN.FormCreate (Sender: TObject);: string; _ToClose: = false;: = true;; TZastFormN.FormKeyPress (Sender: TObject; var Key: Char); (key = # 27) and m_ToClose then;;. br/>
