Var a,b,c: Real; D: Real

repeat
DecodeTime(Time, Hour, Min, Sec, MSec);
Label1.Caption := IntToStr(Hour)+':'+IntToStr(Min)
+':'+IntToStr(Sec)+':'+IntToStr(MSec);
Application.ProcessMessages;
until Form1.Tag = 1;
end;
5.“Button2” dasturlash maydonchasiga quyidagi dasturni kiritamiz:
var
Action: TCloseAction;
begin
Form1.Tag := 1;
form1.close; end;
6.“F9” tugmasini tanlaymiz.
Dastur kodi va oynaning umumiy ko‘rinishini keltiramiz:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Hour, Min, Sec, MSec: Word;
begin
repeat
DecodeTime(Time, Hour, Min, Sec, MSec);
Label1.Caption := IntToStr(Hour)+':'+IntToStr(Min)
+':'+IntToStr(Sec)+':'+IntToStr(MSec);
Application.ProcessMessages;
until Form1.Tag = 1;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Action: TCloseAction;
begin
Form1.Tag := 1;
form1.close;
end;
end.

Izoh: Hosil bo‘lgan dasturdagi “Boshlash” tugmachasini tanlasangiz, soat ishga tushadi. Agar siz “Chiqish” tugmachasini tanlasangiz dasturdan chiqib ketasiz.
11-masala. Delphi dasturlash tilida ovozsiz animatsiyalar bilan ishlovchi ilova yaratish.
Bu masalani yechishimiz uchun quyidagi bosqichlarni amalga oshiramiz:
1. Win32 komponentalar palitrasidan “Animate1” tugmasini hosil qilamiz.
2. Ob’еktlar inspеktorining “Visible” xossasiga “false”, “Repetitions” xossasiga “0” , “Active” xossasiga “false” , “AutoSize” xossasiga “false”, “Center” xossasiga “true” buyrug‘larini kiriting.
3. Standart komponentalar palitrasidan “Button1”, “Button2”, “Button3” tugmalarini hosil qilamiz.
4. “Button1”, tugmasining “Name” xossasiga “Вwind”, “Caption” xossasiga “Windows” jumlalarini kiriting.
5. “Button2”, tugmasining “Name” xossasiga “BStop”, “Caption” xossasiga “To‘xtatish” jumlalarini kiriting.
6. “Button3”, tugmasining “Name” xossasiga “BFile”, “Caption” xossasiga “Bosh menyu” jumlalarini kiriting.
7. Dialog komponentalar palitrasidan “OpenDialog1” tugmasini hosil qilamiz.
8. “OpenDialog1” tugmasining “Filter” xossasiga “*.avi” *.dat” buyrug‘larini kiriting. (4.1.11.-rasm)
9. “Button1” tugmachasining dasturlash maydonchasiga quyidagi dasturni kiritamiz: