8bit Graustufenbild kopieren mit hilfe von Scanline

[vsh]

hier der code um den es geht. entscheidend ist die innere for-schleife (i läuft), wo ich 3 zuweisungen machen muss, obwohl eine ausreichend wäre, bei 8bit.

Delphi-Quellcode:

for k:=1 to anzslices do
  begin
    SlicePic.PixelFormat:=pf24bit;
    for l:=1 to anzpulse do
    begin
      TempPic.LoadFromFile(ImgPfad+'Img'+inttostr(l)+'.bmp');
      TempPic.PixelFormat:=pf24bit;
      zeile:=TempPic.ScanLine[k-1];
      zeile2:=SlicePic.ScanLine[l-1];
      for i:=0 to TempPic.width-1 do
      begin
        zeile2^[3*i]:=zeile^[3*i];
        zeile2^[3*i+1]:=zeile^[3*i+1];
        zeile2^[3*i+2]:=zeile^[3*i+2];
      end;
     end;
    SlicePic.PixelFormat:=pf8bit;
    SlicePic.SaveToFile(ImgPfad+'SliceImg'+inttostr(k)+'.bmp');
   end;