\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
\stoptext