Buka Delphi 7 anda lalu tambahkan component TPanel dan TTimer pada form1.Ketikan kode berikut pada timer1 event onTimer.
procedure TForm1.Timer1Timer(Sender: TObject);
var a,b,c : String;
begin
a := Panel11.Caption;
b := copy(a,1,1);
c := copy(a,2,length(a)); //kode agar teks berjalan
Panel1.Caption := c+b;
if Panel1.Font.Color = clblack then
begin
Panel1.Font.Color := clgreen;
end
else
if Panel1.Font.Color = clgreen then
begin
Panel1.Font.Color := clyellow;
end
else
if Panel1.Font.Color = clyellow then
begin
Panel1.Font.Color := clred;
end
else
if Panel1.Font.Color = clred then
begin
Panel1.Font.Color := clblue;
end
else
begin
Panel1.Font.Color := clblack;
end;
end;