loadinguses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls; type
TForm2 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Image1: TImage; Timer1: TTimer; Label5: TLabel; Timer2: TTimer; Label6: TLabel; Label7: TLabel; Timer3: TTimer; Label8: TLabel; Label9: TLabel; Label10: TLabel;
Timer4: TTimer; Label11: TLabel; Label12: TLabel; Timer5: TTimer; Edit1: TEdit; Timer6: TTimer; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label13: TLabel; Timer7: TTimer; Timer8: TTimer; Label14: TLabel; Timer9: TTimer; Timer10: TTimer; Label15: TLabel; Edit5: TEdit; Label16: TLabel; Edit6: TEdit; Timer11: TTimer; Timer12: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject); procedure Timer3Timer(Sender: TObject); procedure Timer4Timer(Sender: TObject); procedure Timer5Timer(Sender: TObject); procedure Timer6Timer(Sender: TObject); procedure Timer7Timer(Sender: TObject); procedure Timer8Timer(Sender: TObject); procedure Timer9Timer(Sender: TObject); procedure Timer10Timer(Sender: TObject); procedure Timer11Timer(Sender: TObject); procedure Timer12Timer(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end; var
Form2: TForm2; Id:integer=60; Id1:integer=55; Id2:integer=78;
Id3:integer=60; Id4:integer=55; Id5:integer=78;
implementation {$R *.dfm}
procedure TForm2.Timer1Timer(Sender: TObject); begin
label1.Font.Color:=rgb(random(255),random(255),random(255)); end;
procedure TForm2.Timer2Timer(Sender: TObject); begin
label5.Caption := FormatDateTime('hh:nn:ss',now); end;
procedure TForm2.Timer3Timer(Sender: TObject); begin
label7.Font.Color:=rgb(random(255),random(255),random(255));
if Id > 0 then