2-Farben Bmp einlesen und im Array speichern

[tkone]

na klar, du hast natürlich recht.
hab es jetzt korrigiert.
die beiden prozeduren(button 3 und 4) sind zusammengefasst und sehen jetzt so aus

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  bmp: TBitmap;
  i, j: integer;
begin
lokal_max:=0;
bmp := TBitmap.Create;
openPictureDialog1.Execute;
AFilename:=OpenPictureDialog1.Filename;

    try
      // Bitmap laden
      bmp.LoadFromFile(AFilename);

      // Bitmap in Array speichern
      for i := 1 to bmp.Width  do
        for j := 1 to bmp.Height do
          Muster[i, j] := bmp.Canvas.Pixels[i, j] = clBlack;
    finally
      bmp.Free;
    end;

end;

es funktioniert einwandfrei mit dem einlesen.
hab dafür erstmal das array statisch gemacht. jetzt bau ich das wieder dynamisch ein.
vielen dank für eure tolle hilfe