{$mode delphi} procedure proc(a: Integer); overload; begin end; procedure proc(a : NativeInt); overload; begin end; begin end.