Problem TList mit Ober/Unterklassen

[axelf98]

Hallo!

Ich schreibe gerade an einem Programm, dass eine Art Mini-Powerpoit werden soll. Ich habe dazu eine TList, die ich mit Folien fülle. Diese Folien sind unterschiedlich, weshalb ich eine abstrakte Oberklasse TFolie eingeführt habe und als Unterklasse zB. TSchwarzFolie. Die Liste enthält dann eine Instanz von TSchwarzFolie. Das klappt auch ganz gut, nur wenn ich eine Prozedur der Tschwarzfolie aufrufe gib es eine AV... Wenn ich auf Eigenschaften der Folie zugreife gibt es keine Fehler!

Mein Klassensystem..

Delphi-Quellcode:

type TFolie = class
 Art: SmallInt; 
 Titel: String;  
 ZeichenF: TImage;
 constructor INIT;  virtual; abstract;
 procedure ZeichneDich; virtual; abstract;
 destructor GIBFREI;  virtual; abstract;
end;

type TSchwarzFolie = class(TFolie)
 constructor INIT; override;
 procedure ZeichneDich; override;
 destructor GIBFREI; override;
end;

constructor TSchwarzFolie.INIT;
begin
//
end;

procedure TSchwarzFolie.ZeichneDich;
var Recta: TRect;
begin
 ZeichenF.Canvas.brush.Color := clblack;
 Recta.Left := 0;
 Recta.top := 0;
 Recta.Bottom := Zeichenf.Height;
 Recta.Right := Zeichenf.Width;
 ZeichenF.Canvas.FillRect(Recta);
end;

destructor TSchwarzFolie.GIBFREI;
begin
//
end;

{********************************************}

procedure TPresentation.Foliedazu(ArtdF: Integer; Beschr:String);
var TNeueFolie: TFolie;
begin
 case ArtdF of
  1: begin
   TNeueFolie := TSchwarzFolie.INIT;
  end;
   {...}
  end;
 TNeueFolie.Art := ArtdF;
 TNeueFolie.Titel := Beschr;
 TNeueFolie.ZeichenF := mZF;
 Liste.Add(TNeueFolie);    // <-Hier gehts in die Liste
 AnzahlFolien := Liste.Count;
end;

procedure TPresentation.ZeichneFolie;
var Folie: TFolie;
begin
 if Index <> - 1 then
 begin
  Folie := Liste.Items[Index];
  Folie.ZeichneDich;   // <- Hier ist der AV-Fehler...
 end;
end;