Scanline kriechend langsam

[Alibi]

Hi,
ansich recht simpel, ich will ein Bild horizontal spiegeln... Ich verwende dafür Scanline, das ist aber kriechend langsam, selbst der Zugriff über Pixels[x, y] geht schneller.
Hier mein Versuch, also der entscheidende Teil:

Delphi-Quellcode:

var
  y, x, i, bmpWidth, bmpHeight: Integer;
  rowA, rowB: PByteArray;
begin
[...]
    bmpWidth := tmpBmp.Width;
    bmpHeight := tmpBmp.Height;
    for y := 0 to bmpHeight do
    begin
      rowA := tmpBmp.ScanLine[y];
      rowB := Form2.TextImage.ScanLine[y];
      for x := 0 to bmpWidth do
        rowB[bmpWidth - x] := rowA[x];
    end;

Die Variablen bmpWidth und bmpHeight hab ich eingeführt, weil ich hoffte, dass die Performanceprobleme von dem Zugriff auf die TBitMap-Propertys kommen.
Form2.TextImage und tmpBmp sind beide vom Type TBitMap.