http://code.google.com/p/syntaxhighlighter/
{$IFDEF VER140}
(***********************************
** Multiline block comments
**********************************)
procedure TForm1.Button1Click(Sender: TObject);
var
Number, I, X: Integer;
Y: Integer;
begin
str := 'http://blog.dreamprojections.com';
Number := 12356;
Caption := 'The Number is ' + IntToStr(Number);
for I := 0 to Number do
begin
Inc(X);
{
Dec(X);
X := X * 1.0;
}
Y := $F5D3;
ListBox1.Items.Add(IntToStr(X));
(*
ShowMessage('Hello'); *)
end;
asm
MOV AX,1234H
// MOV Number,AX
end;
end;