\installprettytype[PAS][PAS]
\setupcolors[state=start]
\setuptyping[option=color]
\definetyping[PAS][option=PAS, escape=yes, tab=4, numbering=line]
\setuplinenumbering[location=text]

\starttext
\startPAS
blub { Comment } blub
blub {$R- compiler directive} blub
procedure TForm1.Button1.Click(Sender: TObject);
var  // Delphi Comment
	Number, I, X: Integer;
begin
	Number := 12345 * (2 + 9);
	Caption := 'The number is ' + IntToStr(Number);
	asm
		MOV AX,1234h
		MOV Number,AX
	end;
	X := 10;
end;
\stopPAS

\startPAS
My_Variable := _Variable;
aaa asm for end For END
aaa aSM foR eNd For END
45My_Variable := _Variable45;
&for asm blub
\stopPAS
\stoptext