Bekomme einfach kein globales "Array of Record" hin....

[JBJHJM]

Habe schon einige Treads durchgelesen, bekomme es aber trotzdem nicht hin.

Delphi-Quellcode:

TProfil = record
    Name, Option1, Option2 : String;
    Wert: integer;
  end;

Profilspeicher = Array[1..30] of TProfil;

TSpeicher = class
  private
    FProfilspeicher: Profilspeicher;
    function Get(Index: Integer): string;
    procedure Put(Index: Integer; S: string);
  public
    property PProfilspeicher: Profilspeicher read Get; //Hier ist der aktuelle Fehler!!
  end;

...

implementation

function TForm13.Get(Index: Integer): string;
procedure TForm13.Put(Index: Integer; S: string);

An der genannten Stelle, an der ich die Funktion Get dem auslesen zuweisen will, sagt er, Get und Profilspeicher sind inkompatible Typen.
Vermutlich mache ich nur wieder einen weiteren blöden Denkfehler, aber ich komme einfach nicht dahinter.

Wenns total falsch ist, wie mache ich es dann?
Mein Ziel ist es, ein allen Units zugängliches Array von einem Record zu erstellen...