procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..5] of integer;
b:array[1..5] of integer;
i:integer;
begin
for i := 1 to 5 do
begin
a[i] := 1;
b[i] := 2;
end;

a[random(1)] := 3;
caption := inttostr(b[5]);
end;

すみませんが、ちょっと上のプログラムを実験してもらえますか？
OSはWINXPのホームでDELは６のパーソナルですけど
これを実行するとエラーにならない上に、b[5]の結果が3になるんです。
こんな結果が出るのはうちだけでしょうか？

せめてエラーが出てくれれば三日も悩まずにすんだのに・・・