Problem mit TIcon und FreeAndNil

[Helmi]

Hallo,

ich hab im OnCreate der Form folgenden Code:

Delphi-Quellcode:

  //Icons erzeugen
  IconRot   := TIcon.Create;
  IconGelb  := TIcon.Create;
  IconGruen := TIcon.Create;
  IconBlau  := TIcon.Create;

  try
    //versuchen IconRot beschreiben
    IconRot.LoadFromFile(drive_Icon_rot);
  except
    //ansonsten Applications-Icon laden
    IconRot := Application.Icon;
  end;

  try
    //versuchen IconGelb beschreiben
    IconGelb.LoadFromFile(drive_Icon_gelb);
  except
    //ansonsten Applications-Icon laden
    IconGelb  := Application.Icon;
  end;

  try
    //versuchen IconGruen beschreiben
    IconGruen.LoadFromFile(drive_Icon_gruen);
  except
    //ansonsten Applications-Icon laden
    IconGruen := Application.Icon;
  end;

  try
    //versuchen IconBlau beschreiben
    IconBlau.LoadFromFile(drive_Icon_blau);
  except
    //ansonsten Applications-Icon laden
    IconBlau  := Application.Icon;
  end;

und Im OnDestroy das:

Delphi-Quellcode:

  //Icons freigeben und löschen
  FreeAndNil(IconRot);
  FreeAndNil(IconGelb);
  FreeAndNil(IconGruen);
  FreeAndNil(IconBlau);

Wenn jetzt im OnCreate das Icon nicht geladen werden kann (egal ob rot, gelb, grün oder blau) und ich die Form beende dann bekomme ich 2 Fehler (siehe Anhang).

Was kann das sein?

Ich hab schon mal überprüft ob wirklich auch in den except-Block reingesprungen wird und das wird auch gemacht.