Cara Membuat Animasi Teks Pelangi dengan Delphi

Tambahkan komponen TRichEdit pada tab Win32
Atur property nya sebagai berikut :
Lines : 'Selamat Datang'
Enabled : False
Color : clBlack
BorderStyle : bsNone
Alignment : taCenter
Name : REJudul
Font-Name : Courier
Font-Size : 25

Font-Style : fsBold
ScrollBars : ssHorizontal

Kemudian tambahkan komponen TTimer pada tab System
Atur property interval menurut keinginan anda.

variabelnya diisi:  charke: integer;
seperti gambar di bawah ini

Klik 2 kali pada komponen TTimer, isikan koding berikut :
REJudul.SelStart := charKe +6;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clRed;

REJudul.SelStart := charKe +5;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := $000080FF;

REJudul.SelStart := charKe +4;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clYellow;

REJudul.SelStart := charKe +3;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clGreen;

REJudul.SelStart := charKe +2;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clBlue;

REJudul.SelStart := charKe +1;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := $00FFFF80;

REJudul.SelStart := charKe;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clPurple;

REJudul.SelStart := charKe -1;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clWhite;

charKe := charKe +1;
if charKe > Length(REJudul.Text) then charKe := -6;

Setelah itu, simpan aplikasi dan jalankan.