>>101のコードを testとして
private void button1_Click(object sender, System.EventArgs e)
{ DateTime stim = DateTime.Now;
test();
textBox1.AppendText( "\x0d\x0a"+((DateTime.Now.Ticks-stim.Ticks)/10000000.0).ToString("f") );
}
リリースにて作成しIDE上から実行、その測定結果
12.57
12.53
12.50

Del6パーソナルで実験

procedure TForm1.Button1Click(Sender: TObject);
procedure test;
type TXDATA = Array[0..9999 , 0..9999] of byte;
var i,j:Integer;
var XDATA : ^TXDATA;
begin
GetMem(XDATA , SizeOf(XDATA^));
try
for i:=0 to 9999 do
for j:=0 to 9999 do
begin
if (j mod 10 )=0 then XDATA^[i,j]:=$ff
else XDATA^[i,j]:= j mod 200;
end;
finally FreeMem(XDATA); end;
end;
var StartTime:int64;
begin
StartTime:=GetTickCount;
test;
Memo1.Lines.Add(format('%10.2fsec',[(GetTickCount-StartTime)/1000]) );
end;

同じく結果
11.50sec
11.48sec
11.42sec

ただ、うちの環境では VS.NET はとにかく重い。 パソコン買い換える迄は封印かも