Performances et pointeurs.

Bonjour M'sieurs'Dames,

Je suis en train d'essayer de combler une de mes nombreuses lacunes en prog' en tentant de dompter les pointeurs sous Delphi.
Pour cela, je fais des tests dans tous les sens.
Voici un de ces tests concernant ScanLine.
Ca marche, mais mon problème est que je ne comprends pas pourquoi.

Ce test ne fait que transformer une image couleur en niveaux de gris :

{Méthode ScanLine "classique".}
procedure TForm1.btnScanLineClick(Sender: TObject);
  type pRGBArray = ^TRGBArray;
       TRGBArray = ARRAY[0..0] OF TRGBTriple;
  var Bmp : TBitMap;
      Row : pRGBArray;
      X,Y : Integer;
      R,G,B,Grey : Byte;
      StartTime, EndTime : Int64;
begin
Bmp := TBitMap.Create;
try
  Bmp.LoadFromFile(ChangeFileExt(Application.ExeName,'.bmp'));
  Image1.Picture.Bitmap.Assign(Bmp);
  QueryPerformanceCounter(StartTime);
  for Y := 0 to Bmp.Height-1 do begin
    Row := Bmp.ScanLine[Y];
    for X := 0 to Bmp.Width-1 do begin
      R := Row[X].rgbtRed;
      G := Row[X].rgbtGreen;
      B := Row[X].rgbtBlue;
      Grey := (R+G+B) div 3;
      Row[X].rgbtRed := Grey;
      Row[X].rgbtGreen := Grey;
      Row[X].rgbtBlue := Grey;
    end;
  end;
  QueryPerformanceCounter(EndTime);//environ 7300 Kticks.
  Image2.Picture.Bitmap.Assign(Bmp);
  Label1.Caption := Format('%.0n KCycles',[(EndTime-StartTime)*0.001]);
finally Bmp.Free; end;
end;


{ScanLine préalable de TOUT le Bitmap dans un tableau de pointeurs.}
procedure TForm1.btnTestAClick(Sender: TObject);
  type pRGBArray = ^TRGBArray;
       TRGBArray = ARRAY[0..0] OF TRGBTriple;
  var Bmp : TBitMap;
      MonTab : Array of pRGBArray;// ça, c'est nouveau!
      X,Y : Integer;
      R,G,B,Grey : Byte;
      StartTime, EndTime : Int64;
begin
Bmp := TBitMap.Create;
try
  Bmp.LoadFromFile(ChangeFileExt(Application.ExeName,'.bmp'));
  QueryPerformanceCounter(StartTime);

  SetLength(MonTab,Bmp.Height); //On remplit d'abord tout le tableau dynamique.
  for Y := 0 to Bmp.Height-1 do MonTab[Y] := Bmp.ScanLine[Y];

  for Y := 0 to Bmp.Height-1 do begin //..puis on accède à chaque pixel par ce tableau.
    for X := 0 to Bmp.Width-1 do begin
      R := MonTab[Y]^[X].rgbtRed; //ou R := MonTab[Y,X].rgbtRed;
      G := MonTab[Y]^[X].rgbtGreen;
      B := MonTab[Y]^[X].rgbtBlue;
      Grey := (R+G+B) div 3;
      MonTab[Y]^[X].rgbtRed := Grey;
      MonTab[Y]^[X].rgbtGreen := Grey;
      MonTab[Y]^[X].rgbtBlue := Grey;
    end;
  end;
  QueryPerformanceCounter(EndTime);//environ 5500 Kticks.
  Image3.Picture.Bitmap.Assign(Bmp);
  Label2.Caption := Format('%.0n KCycles',[(EndTime-StartTime)*0.001]);
finally Bmp.Free; end;
end;

Je ne comprends pas pourquoi ma 2ème méthode est environ 25% plus rapide que la méthode ScanLine classique. En effet, dans les 2 méthodes, on parcourt toutes les lignes du Bmp pour les scanner une à une.
Pourquoi l'accès à chaque pixel est plus rapide en passant par un tableau?
'doit y avoir une histoire de gestion de la mémoire la-dessous, non?

Si une âme charitable pouvait m'allumer la lampe à Eugène ce serait sympa car je sens confusément que je n'ai encore rien compris à ces foutus pointeurs.

NB: l'image fait 320x240 pixels pour éviter les ajustements de fin de ligne !!!

Row := Bmp.ScanLine[239]; // 1 seul appel à ScanLine au début du Bmp (coin inf. gauche).
for X := 0 to 76799 do begin // 76799 = 320 x 240  -  1
   R := Row[X].rgbtRed;
   G := Row[X].rgbtGreen;
   B := Row[X].rgbtBlue;
   Grey := (R+G+B) div 3;
   Row[X].rgbtRed := Grey;
   Row[X].rgbtGreen := Grey;
   Row[X].rgbtBlue := Grey;
end;

Ca donne les perfs les plus décevantes!
Il n'y a qu'1 seul appel à ScanLine[] et c'est la plus lente de toutes les méthodes ! ! !

J'suis tj dans le brouillard, quoi...