Array , Löschen von selben verhindern.

[EWeiss]

Wieder mein leidiges Array und pointer problem.

Delphi-Quellcode:

Type  
  PWinampVisInfo = ^TWinampVisInfo;
  TWinampVisInfo = Packed record
    Title:          PChar;
    FileName:       PChar;
    PlaylistLength: integer;
    PlaylistPos:    integer;
    Pos, Len:       QWORD;
    VisHeader:      PWinampVisHeader;
    VisModule:      PWinampVisModule;
    Init, Init2, Rendering: boolean;
    DllInstance:    THandle;
    WinHandle:      THandle;
    PluginId:       DWORD;
    ParentHandle:   DWORD;
    Vis_Atom_Emu:   ATOM;
    Vis_Window_Emu: HWND;
    VisInfoCount:   Integer;
  end;

Var
  VisInfo: array [1..5] of PWinampVisInfo;

Beim erstellen des neuen Threads
    ThreadHandle := BeginThread(nil, 0, @WinampVisWin, VisInfo[VisWinCounter], 0, ThreadId); Bleibt die Anwendung in der Function
function WinampVisWin(VisInfo : array of PWinampVisInfo): HWND; beim ersten begin stehen und gibt ein AV aus.
Was ist in der Functionszeile verkehrt?

gruß