Contoh Program Tulisan Berkedip

      Contoh Skrip nya
         Menentukan Tipe Data nya terlebih dulu:
         type
        TForm1 = class(TForm)
         Label1: TLabel;
         Timer1: TTimer;
          Label2: TLabel;
          Label3: TLabel;
          Label4: TLabel;
          Label5: TLabel;
          Label6: TLabel;
          Label7: TLabel;
         Button1: TButton;
         Label8: TLabel;
          procedure Timer1Timer(Sender: TObject);

            procedure TForm1.Timer1Timer(Sender: TObject);
               var a:Integer;
         begin
                if Label1.Visible=True then
                Label1.Visible:=False

                else if
                Label1.Visible=False
         then
                Label1.Visible:=True;
                Label4.Caption:=FormatDateTime('dd/mm/yyyy',now);
                Label5.Caption:=FormatDateTime('hh:mm:ss',now);
                //menampilkan tgl dan jam
                 Label6.Caption:=TimeToStr(time)+'  '+DateToStr(date);

                 //menampilkan tulisan berjalan
                  Label1.Left:=Label1.Left-2;

                //menampilkan button berjalan
               Button1.left:=Button1.left-2;

              //menanmpilkan tulisan berjalan
               Label7.Left:=Label7.left-2;

              //mengganti warna dengan timer
              a:=StrToInt(Label8.Caption);
              a:=a+1;
             Label8.Caption:=IntToStr(a);
             if Label8.Caption='0' then
             Form1.Color:=clWhite

            else
             if Label8.Caption='1' then
             Form1.Color:=clBlue
            else
            if Label8.Caption='2' then

              begin
              Label8.Caption:='0';
              Form1.Color:=clWhite;
              end;

              end;
             end.