Error extrañisimo prouducido por delphi

[[Delphius]]

Por curioso llegué hasta este hilo, y viendo los códigos... legué hasta el de seoane...

Suelo entender algunas códigos.. pero debo admitir que esta parte me dejó mudo.

Código Delphi [-]
case Bitmap1.PixelFormat of
      pf16bit: j:= (Bitmap1.Width*2) -1;
      pf24bit: j:= (Bitmap1.Width*3) -1;
      pf32bit: j:= (Bitmap1.Width*4) -1;
      else j:= Bitmap1.Width -1;
    end;
    for i:= 0 to Bitmap1.Height - 1 do
      if not CompareMem(Bitmap1.ScanLine[i],Bitmap2.ScanLine[i],j) then
        Exit;

En particular... lo que está en rojo. ¿Qué significa la operacion del case? La verdad es que me interesa esto ya que ando viendo cosas sobre tratamiento de imagen para mi tesis.