var
  Form1: TForm1;
  Gray, Gray2: array of array of byte;

type
   Trgb24=record // 색상 포맷을 만듭니다.
   b,g,r:byte;
end;
Prgb24=^Trgb24;

-----------------------------------------

참고로 위 코드는 Scanline 으로 픽셀처리를 하기위해 선언부에 선언해주는

코드입니다.