[Vayrus]

Примерно как-то так, если что не напутал:

Код:

 
    dstPixel := Bmp1.ScanLine[Y];
    for X := 0 to Width - 1 do
    begin
      with dstPixel^ do
      begin
        rgbRed := dstPixel^.rgbRed;
        rgbGreen := dstPixel^.rgbGreen;
        rgbBlue := dstPixel^.rgbBlue;
        Inc(srcPixel);
      end;
      Inc(dstPixel);
    end;