Syntax Highlighting (is it possible?)

[Xorcist]

Testing...
[pascal]
{Syntax Highlighting}
Procedure TForm.ButtonClick(Sender TObject);
var
Number: Integer;
begin
Number := 123456;
Caption := 'The number is: ' + IntToStr(Number);
end;
[/pascal]

Noticed the first single quote in the string is highlighted, but not the last.