timer delphi

TIMER
Berada di tab sytem pada component palette, digunakan untuk menggerakkan suatu event pada suatu saat atau secara berulang-ulang, berdasarkan suatu nilai interval. Tuliskan kode yang diinginkan untuk dijalankan pada suatu waktu tertentu dalam event onTimer. Untuk tidak melanjutkan event, ubah properti enabled dengan nilai false.

Contoh :
Aplikasi yang menggunakan kontrol timer untuk menggerakkan event secara berulang-ulang :
1.    tambahkan kontrol timer dan sebuah kontrol edit.
2.    ubah properti interval pada kontrol timer dengan nilai 100 serta kosongkan properti text dari kontrol edit.
3.    tuliskan kode program di bawah ini pada event onTimer. Sebelumnya deklarasikan variabel I dengan tipe integer, variabel AA dan BB tipe string.
procedure TForm1.Timer1Timer(Sender: TObject);
var
 I : integer;
 AA,BB :string;
begin
  edit1.Text:='hari ini : '+ formatdatetime ('dd-mmm-yy',date);
  AA:=copy(edit1.Text , I, length(edit1.Text ));
  BB:=AA+copy(edit1.Text ,1,I);
  edit1.Text :=BB;
  I:=I+1;
  if I=25 then I:=1;
end;
4.    jalankan aplikasi dan perhatikan bahwa seakan-akan teks yang tertuliskan di dalam kotak teks kontrol edit tampak tergulung.
Penggunaan fungsi If pada contoh di atas digunakan untuk mengembalikan nilai variabel I ke nilai 1 agar event timer dapat digunakan secara berulang-ulang.