Разобраться с указателями. Сортировка массива записей.

[AndrzejX]

Прошу помочь разобраться с сортировкой массива записей, используя указатели. Сама сортировка реализована, отсюда и вопрос.

С целью сравнения эффективности (по времени) сортировки указателями по сравнению с сортировкой непосредственно массива написал две простые процедуры сортировки. Первая сортирует массив указателей, вторая сам исходный массив. Алгоритм один и тот же (сортировка выбором):

type TRec = Record
     A, B, C, D, E, F, G, H: String[255];
     N: Integer;
end;

type TPRec = ^TRec;

var
  Form1: TForm1;
  ARec: Array[1..40000] of TRec;
  PRec: Array[1..40000] of TPRec;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i, n: Integer;
begin
Randomize;
n:=High(ARec);
for i:=1 to n do
 begin
  ARec[i].N:=random(n);
  PRec[i]:=@ARec[i];
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j, n: Integer;
 temp: TPRec;
 min, jmin: Integer;
 T: TTime;
begin
T:=Now;
n:=High(ARec);
for i:=1 to n do
  begin
    jmin:=i;
    min:=PRec[i]^.N;
    for j:=i+1 to n do
      if PRec[j]^.N<min then
       begin
        jmin:=j;
        min:=PRec[j]^.N;
       end;
    if i<>jmin then
      begin
        temp:=PRec[i]; PRec[i]:=PRec[jmin]; PRec[jmin]:=temp;
      end;
  end;
Caption:=TimeToStr(Now-T);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i, j, n: Integer;
 temp: TRec;
 min, jmin: Integer;
 T: TTime;
begin
T:=Now;
n:=High(ARec);
for i:=1 to n do
  begin
    jmin:=i;
    min:=ARec[i].N;
    for j:=i+1 to n do
      if ARec[j].N<min then
       begin
        jmin:=j;
        min:=ARec[j].N;
       end;
    if i<>jmin then
      begin
        temp:=ARec[i]; ARec[i]:=ARec[jmin]; ARec[jmin]:=temp;
      end;
  end;
Caption:=TimeToStr(Now-T);
end;

Ожидал, что запись большого размера должна копироваться дольше, чем 4 байта указателя, и сортировка указателями должна по-любому работать быстрее. Программа же показывает, что это не так. Прошу помочь понять, почему.

Единственное предположение, что присваивание записей сама Delphi производит с помощью указателей...

Вопрос, конечно, дилетантсткий, но таков я и есть.