Inkompatible Typen Fehler?

[mr.winkle]

Hallo Leute,
ich habe ein Problem mit anscheinend als inkompatibel betrachteten Typen. Meine Deklaration sieht wie folgt aus:

Delphi-Quellcode:

  tpl = record
    index     :integer;
    farbe     :tcolor;
    zuparken  :string;
    a         :array of tpoint;
  end;

  tfl = record
    index :integer;
    farbe :tcolor;
    a     :array of tpoint;
  end;

  tlevel = record
    s:    string;
    pl    :array of tpl;
    fl    :array of tfl;
    bg    :tcolor;
  end;

var
  Form2: TForm2;
  lvl:tlevel;
  buf:array of tpoint;

und weiter unten verweigert mir der Compiler nun folgendes:

Delphi-Quellcode:

procedure TForm2.rb1Click(Sender: TObject);
begin
  if rb3.Checked then
    begin
    setlength(lvl.fl,length(lvl.fl)+1);
    lvl.fl[high(lvl.fl)].a:=buf;
    end;

  setlength(buf,0);
  zeichnen;
end;

Warum? Und wie kann ich das beheben?
Benutze Delphi 7.

mfg, mr.winkle