Delphi tidak menerapkan Syntax Highlight ?

Saya perlu sebuah function yang menggabungkan dua buah message, yaitu message public dan message private. Keduanya bertipe string. hasilnya adalah string juga.
Bila message public <> '' maka hasilnya adalah message private+message public. Tapi bila message public='' maka hasilnya adalah ''
Programnya sangat sederhana, seperti berikut ini

function message(private, public: string): string;
begin
 if public<>'' then begin
   message := private+public;
 end else begin
   message := '';
 end;
end;

Ternyata kode diatas bila diketikkan menggunakan Delphi menjadi tidak syntax highlighting (tebal semuanya), seperti yang ditunjukkan pada gambar berikut ini



Kenapa ya ??
Penyebabnya adalah bahwa kata message, public, dan private masuk ke dalam kelompok directive, yaitu kata yang punya "peran khusus" tergantung lokasinya. Berbeda dengan keyword (misalnya if, then, begin, end, dll), directive dapat digunakan sebagai nama variabel (resiko tanggung sendiri).
Tetapi dalam code editor, directive diperlakukan seperti keyword. Itulah sebabnya kode diatas masih bisa di-compile tetapi tampak seperti tidak ada syntax highlight.