32bit를 사용하시는 것은 낭비입니다.
뒤의 8바이트는 아직사용하지않기때문에
메모리 낭비가 됩니다.


     SrcImg.Picture.Bitmap.PixelFormat := pf24bit;

     for i:=0 to SRCIMG.Height - 2 - BlurConst do begin
          for j := 0 to BlurConst do begin
             
          // 0 <j + i <= SRCIMG.Height -1

              P_Blur[j] := SrcImg.Picture.Bitmap.ScanLine[j + i];
          end;

          for j := 0 to SrcImg.Width - 1 - BlurConst do begin
               RS:=0;
               GS:=0;
               BS:=0;
               for k:=i to i + BlurConst do begin
                    for k1 := j to j + BlurConst do begin
                         rs := rs + GetRValue(P_Blur[k-i][k1-j]);
                         gs := gs + GetGValue(P_Blur[k-i][k1-j]);
                         bs := bs + GetBValue(P_Blur[k-i][k1-j]);
                    end;
               end;

               // Sum/Count =Avr 평균 계산 (0<=   <=255)
               RS:=RS DIV ((BLURCONST+1);
               GS:=GS DIV ((BLURCONST+1);
               BS:=BS DIV ((BLURCONST+1);


              //P_Blur가 Tcolor 배열인가여???
              아니면 포인터 등을 통해서 처리 해야 함..
              P_Blur[0,j] := RGB(RS,GS,BS);
          end;
     end;


음 대충 봤는대여...
여기저기 고쳐 할부분이 많아서리..
될수 있으면 함수 단위로 올려 주시면...
보고 고쳐드리기가 쉽거든요..
자세한 것을 원하시면....
함수를 전채 올려 주세여..

그럼 즐프 하세여..

나름대로 버그 잡았다구 생각하구 나온 결과가 아래와 같네요..
한번 테스트 해 보시구.. 잘 못된점 있으면 지적해 주세요..^^;;
아직 맞게 구현했는지 확신이 안서네요..ㅠㅠ
그럼 앞으로도 많은 조언 부탁드립니당..

참.. 24비트로 하면. 이미지에 줄이 쫙쫙 그려집니당.ㅠㅠ
원본 이미지가 32비트로 되어 있어서 그런 건지도 몰겠네요...

procedure Make_Blur(SrcImg : TImage; BlurConst : integer);
var  i,j,k,h, s : integer;
     iR, iG, iB : integer;
     P_Blur : array[0..10] of PIntegerArray;  // BlurConst : 1 ~ 5
begin
     SrcImg.Picture.Bitmap.PixelFormat := pf32bit;
     for i := BlurConst to SrcImg.Height - 1 - BlurConst do begin
          for s := 0 to BlurConst * 2 do begin
               P_Blur[s] := SrcImg.Picture.Bitmap.ScanLine[s + i - BlurConst];
          end;
          for j := 0 to SrcImg.Width - 1 - BlurConst*2 do begin
               iR := 0;
               iG := 0;
               iB := 0;
               for k:=0 to BlurConst * 2 do begin
                    for h := 0 to BlurConst * 2 do begin
                         iR := iR + GetRValue(P_Blur[k][h+j]);
                         iG := iG + GetGValue(P_Blur[k][h+j]);
                         iB := iB + GetBValue(P_Blur[k][h+j]);
                    end;
               end;
               iR := iR div ((BlurConst*2+1)*(BlurConst*2+1));
               iG := iG div ((BlurConst*2+1)*(BlurConst*2+1));
               iB := iB div ((BlurConst*2+1)*(BlurConst*2+1));
               P_Blur[BlurConst][BlurConst + j] := RGB(iR,iG,iB);
          end;
     end;
end;

변환하시면 돼구여..아마도 처리하는
루틴이 32비트 체게로 되어있어서...
그런것 같네여..

지금 사용하시는 방법은
Mean Filter 방식입니다.평균을 사용하는 방법이지요..
이것 말고도 Median Filter ,Low Pass등 여러가지
방법이 있습니다.
가장 많이 사용하는 방법은 미디언 필터입니다.
DSP 쪽에서는 fir 필터를 씁니다.
^^;;

BlurConst 는  마스크 크기를 이야기하는것 같은데..
적어도 3x3이상은 되어야 효과를 확실히 볼수 있을 것
같은데 .GetRValue등의 api를 사용하시느것은
이미지 프로 세싱 하실때..속도저하를 가져 옵니다.
배열을 사용하시던지.. 아니면 포인터를 사용하여 작업을
하셔야 합니다.
P_Blur을 TColor를 사용하기위해서  Integer를 선언 하셨는데.
마찬가지로 32비트니까.손해를 보시는 것입니다.


다음은 24비를 사용 이진화 하는 간단 예제 입니다.
참고 하시기를

procedure Binary( Src :TBitmap)
var
SRcRow: pRGBTriple ;
i,j:Integer;
begin


    //이진화
    for j:=0 to Src .Height-1 do
    begin
       SRcRow:=Src.Scanline[j];
        for i:=0 to Src.width-1 do
        begin

            if SrcRow.rgbtBlue<128 then
            begin
                SrcRow.rgbtBlue:=0;
                SrcRow.rgbtGreen:=0;
                SrcRow.rgbtRed:=0;
             end
            else
            begin
                SrcRow.rgbtBlue:=255;
                SrcRow.rgbtGreen:=255;
                SrcRow.rgbtRed:=255;
            end;
        
         //포인터 증가
         inc(SrcRow);
        end;
    end;

   Src.refresh;
end;

그럼 ..즐프하세여

SRcRow: pRGBTriple ;
여기서 pRGBTriple 이게 어떤 형인가여??
도움말에 안나오는데요...^^;;

정말 모르는게 너무 많네요.ㅠㅠ
많은 가르침 부탁드립니당..

도움말은 MSDN을 참고하시구

8비트의 경우
pBYTE=^BYTE

24비트의 경우
pRGBTRIPLE=RGBTRIPLE;

RGBTRIPLE구조체는 윈도우에서 기본적으로 지원하는
구조체입니다.
내부에 8비트씩  r,g,b 3개가 들어갑니다..
사용하기 편하지여.
아니면 포인터로 받아서 이동 처리 해야합니다.
^^ GetRValue 함수는 안씁니다.
함 써보세여..
그럼


RGBTRIPLE
The RGBTRIPLE structure describes a color consisting of relative intensities of red, green, and blue. The bmciColors member of the BITMAPCOREINFO structure consists of an array of RGBTRIPLE structures.

typedef struct tagRGBTRIPLE {
  BYTE rgbtBlue;
  BYTE rgbtGreen;
  BYTE rgbtRed;
} RGBTRIPLE;

Members
rgbtBlue
Specifies the intensity of blue in the color.
rgbtGreen
Specifies the intensity of green in the color.
rgbtRed
Specifies the intensity of red in the color.

Requirements
  Windows NT/2000 or later: Requires Windows NT 3.1 or later.
  Windows 95/98/Me: Requires Windows 95 or later.
  Header: Declared in Wingdi.h; include Windows.h.

죄송...
일하다가 바뻐서 ..
다 수정 못한것을 올려서..
^^;

위에 예제 다시수정 했습니다..
참고 하시기를