Invalid Pointer Problem in DLL

[iphi]

Hallo,

meine DLL soll ein dynamisches Array, welches das aufrufende Progamm definiert, befüllen.

Hier mein Minimalcode:

Delphi-Quellcode:

... im aufrufenden Programm
var f: TFloatArray;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLength(f,1);
VIDLL_DoIt(f);
end;

... in der DLL
var Freq: TFloatArray;
procedure _DoIt(Frq: TFloatArray); export; cdecl;
begin
Freq:=Frq;
end;

Wenn ich den Knopf das erste mal drücke, gibt es keine Probleme. Im Debugger sehe ich auch in der DLL das korrekt übergebene Array (ich weiß, es wird nur die Adresse übergeben). Beim zweiten Mal kommt "Invalid Pointer Operation", aber nur wenn die Länge des übergebenen Arrays nicht Länge Null hat. Woran liegt das?
Das ganze läuft oder besser läuft nicht in Delphi6.

P.S.
Wenn ich in der DLL die Arrays als Pointer statt als TFloatArray deklariere, tritt das Problem nicht auf, also so:

Delphi-Quellcode:

... im aufrufenden Programm
var f: TFloatArray;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLength(f,1);
VIDLL_DoIt(f);
end;

... in der DLL
var Freq: Pointer;
procedure _DoIt(Frq: Pointer); export; cdecl;
begin
Freq:=Frq;
end;