AV bei benutzen von Eigenschaften eines MDIChilds

[-NIP-]

Also so sieht mein Code im MDIChild aus.

Delphi-Quellcode:

  TFBild = class(TObject)
    Breite: Integer; //Breite des gesamten Bildes
    Hoehe: Integer;  //Höhe des gesamten Bildes
    Gesamtbild: TBitmap32; //Das Bild mit allen zusammengefügten Ebenen u.s.w.
  public
    procedure Intialisieren(Erstellmodus:TErstellmodus);
  end;

var
  //..
  Bildspeicher: TFBild;

//...


procedure TFBild.Intialisieren(Erstellmodus:TErstellmodus);
var JPEGBild : TJPEGImage;
    ZwischenBitmap:TBitmap;
begin
  if Erstellmodus=emNeu then   //Wenn neues Bild dann...
  begin
    TBildfenster1(MDIChild).ClientWidth:= Breite;
    TBildfenster1(MDIChild).ClientHeight:= Hoehe;

    with TBildfenster1(MDIChild).Bild_Img32 do    //Bild_Img32 vorbereiten
    begin
      Width:= Breite;
      Height:= Hoehe;
      Bitmap.Width:= Breite;
      Bitmap.Height:= Hoehe;
    end;
    Gesamtbild.Clear(Color32(FuellFarbe));

    TBildfenster1(MDIChild).Caption:= 'Bild '+IntToStr(BildNummer);
  end;

  if Erstellmodus=emNormalOeffnen then  //Wenn geöffnetes Bild dann...
  begin
    TBildfenster1(MDIChild).ClientWidth:= Breite;
    TBildfenster1(MDIChild).ClientHeight:= Hoehe;

    with TBildfenster1(MDIChild).Bild_Img32 do //Bild_Img32 vorbereiten
    begin
      Width:= Breite;
      Height:= Hoehe;
      Bitmap.Width:= Width;
      Bitmap.Height:= Height;
    end;

    TBildfenster1(MDIChild).Caption:=ExtractFileName(MainForm.OpenPictureDialog1.FileName);

  end;
end;

Der Code ist noch nicth komplett.