Движение песка

[Format C:]

2alexBlack:
Хорошо, учту.

Только вынести цикл (GetLine) всё равно не получается:

Function GetLine(Const Bitmap: TBitmap; Const RGBArray: PRGBArray; Const Index: Cardinal): Boolean;
Var
  Scan: Pointer;
Begin
  Result:=False;

  If Index>=Bitmap.Height Then Exit;

  Scan:=Bitmap.ScanLine[Index];

  { Здесь ошибка             }
  RGBArray^:=TRGBArray(Scan^);
 

  Result:=True;
End;

Полная программа в архиве.

При рисовании делал тест скорости. У меня получилось в среднем 75.

[alexBlack]

RGBArray^ := TRGBArray(Scan^);
Это операция копирования. Копируется sizeOf(TRGBArray) байт - sizeOf(TRGBPixel)*65536 - те самые 200К, про которые Вы говорили. А по ссылке Scan^ доступно только BitMap.width*3 байт. Отсюда Access Violation.

Попробуйте так:
move(Scan^, RGBArray^, sizeOf(TRGBPixel)*BitMap.width);