Dynamische Arrays "zu Fuß"

[Luckie]

Ich habe mal versucht das irgendwie umzusetzten, nach einen Tipp von tommie-lie, der hat sich aber leider unter die Dusche verdrückt.

Bitte nicht lachen, mit Zeigern habe ich es nicht so.

Delphi-Quellcode:

type
  PString = ^String;

var
  StringArray: PString;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetMem(StringArray, sizeof(StringArray)+1*sizeof(PString));
  PString(StringArray)^ := Edit1.Text;
end;

Ich bekomme allerdings eine AccessViolation.