Contoh yang dijelaskan dalam artikel ini adalah efek teks gradien jendela yang diterapkan oleh Dlephi. Teks dapat terus berubah, dan warnanya berubah dari terang ke gelap, dari jelas ke buram. Waktu gradien teks dapat disesuaikan sendiri di dalam kode . Kode implementasi utama adalah sebagai berikut:
unit Unit1;antarmukamenggunakan Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir, Dialog, StdCtrls, ExtCtrls;ketik TForm1 = class(TForm) Timer1: TTimer Label1: TLabel procedure Timer1Timer(Sender: TObject private { Deklarasi pribadi } public { Deklarasi publik } end;var Form1: TForm1;implementationvar r,g,b:integer;{$R *.dfm}prosedur TForm1.Timer1Timer(Sender: TObject);begin if (r<=255) dan (g<=255) dan (b<=255) lalu mulai Label1.Font.Color:=RGB(r,g,b); //Ubah warna teks r:=r+1; b:=b+1; akhir lain mulai r:=0; g:=0; b:=0;