ตัวอย่างที่อธิบายไว้ในบทความนี้คือเอฟเฟกต์ข้อความไล่ระดับสีของหน้าต่างที่ Dlephi นำมาใช้ ข้อความสามารถเปลี่ยนแปลงได้ตลอดเวลา และสีจะเปลี่ยนจากสีอ่อนเป็นสีเข้ม จากชัดเจนเป็นเบลอ สามารถปรับเวลาได้ด้วยตัวเองในโค้ด . รหัสการใช้งานหลักมีดังนี้:
หน่วย Unit1; อินเทอร์เฟซ Windows, ข้อความ, SysUtils, ตัวแปร, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, ไดอะล็อก, StdCtrls, ExtCtrls; พิมพ์ TForm1 = class (TForm) Timer1: TTimer; Label1: TLabel; { การประกาศส่วนตัว } สาธารณะ { การประกาศสาธารณะ } end;var Form1: TForm1;implementationvar r,g,b:integer;{$R *.dfm}ขั้นตอน TForm1.Timer1Timer(Sender: TObject);begin if (r<=255) และ (g<=255) และ (b<=255) จากนั้นเริ่ม Label1.Font.Color:=RGB(r,g,b); //เปลี่ยนสีข้อความ r:=r+1; g:=g+1; b:=b+1; end อื่นเริ่มต้น r:=0; g:=0; b:=0; end;end;end.