Ошибка в создании круглого градиента.

[Alex Cones]

Создал процедуру круглого градиента (осветления) - имитация свечения Солнца. Но где-то допустил ошибку или что-то не учел. Градиент получается, но изображение портится: (см аттач).
Код такой:

Procedure GRH_AddToColorChannel(Incer : Byte; Var Chan:Byte);
Var
 I:Byte;
Begin
 For I:=1 to Incer do
  If Chan < 255 Then Inc(Chan);
End;

Function GRH_DrawSun(A:ImagePicture):ImagePicture;
Var
X,Y:SmallInt;
RC,GC,BC:Byte;
T:Byte;
Begin
 For Y:=0 to 119 do
  For X:=0 to 119 do
    If Sqr(120) > Sqr(X) + Sqr(Y) Then
     Begin
      RC := A[X,Y] And $FF;
      GC := (A[X,Y] Shr 8) And $FF;
      BC := (A[X,Y] Shr 16) And $FF;
      T:=Round(Sqrt(Sqr(X)+Sqr(Y)));
      GRH_AddToColorChannel(120 - T, RC);
      GRH_AddToColorChannel(120 - T, GC);
      GRH_AddToColorChannel(120 - T, BC);
      Result[X,Y] := (RC or GC shl 8) or BC shl 16;
     End;
End;

UPD ---------------------------------
Полностью закомментировал всю функцию, оставил только заголовок и пустой Begin\End. По прежнему появляются артефакты. Закоментировал сам вызов функции - Оно перерисовывается без артефактов. Видимо дело в том, что массив 0..249,0..349 типа Integer нельзя передавать как параметр функции?
UPD v2 ------------------------------
Поменял Function на Procedure в том же модуле записал глобальную переменную, общаюсь с ней, вроде артефакты прошли. Это точно было из-за передачи большого объема инфы.

[0nni]

ImagePicture - это объект?

[Alex Cones]

Type
   ImagePicture = Array[0..249,0..329] Of Integer;

[0nni]

Так мне кажется лучше будет

procedure GRH_DrawSun(var A:ImagePicture);

А еще лучше сделать класс-обертку над ImagePicture и работать непосредственно с классом.
А такие объемы в стеке хранить - преступление

В правой части очень похоже на выход за границы или на то что процедура при выходе чистила стек.