Bitmap in Array einlesen

[daniel738]

Hey,
entschuldigung werde in Zukunft mich bessern!

Ich frage jetzt noch mal hier was, zum gleichen Thema da meine Frage teils ja schon beantwortet wurde.
Habe das erstmal mit canvas "gemacht", bzw. aus einem anderen Frage hier im Forum rauskopiert.
Es kommmt aber immer zu einer Exception der Klasse EAccessViolation Zugriffsverletzung...
in der Zeile

Image1.Picture.Bitmap.Assign(BMP);

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
  var                //Hier wird das Bild in Image1 eingelesen
  BMP : TBitmap;
  farben:array of integer;
  i,j,k:integer;

begin
    BMP := TBitmap.Create;
 try
    BMP.LoadFromFile('C:\test.bmp');
    Image1.Picture.Bitmap.Assign(BMP);
  finally
    BMP.Free;
     //Hier werden die Farbwerte ausgelesen

  for i:= 0 to Image1.Picture.Bitmap.Width - 1 do
    for j:= 0 to Image1.Picture.Bitmap.Height - 1 do
    begin
       farben[k]:=image1.canvas.pixels[i,j];
       Inc(k);
    end;

  end;
end;