[lmikle]

По простому - что-то типа:

Код:

var
  I, J : Integer;
  A : Array Of Array DWORD;
begin
  setLength(A,Bitmap.Width,Bitmap.Height);
  For I := 0 To ABitmap.Width-1 Do
    For J := 0 To ABitmap.Height-1 Do
      A[I,J] := Bitmap.Canvas.Pixels[I,J]

Но это долго. Поищи пример использования ScanLine.