Drag&Drop innerhalb eines Treeviews

[BrinkschulteManfred]

Hallo zusammen,

ich komme momentan leider nicht weiter. Ich möchte einen Drag&Drop innerhalb eies TreeView implementieren, bekomme aber jedesmal eine "Zugriffsverletzung bei Adresse ..."
Der inzwischen sehr einfache Code ist folgender:

Delphi-Quellcode:

procedure TFormMain.TreeViewSchuleDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  StatusBarMain.Panels[0].Text :=
    IntToStr(TTreeView(Source).Selected.SelectedIndex) + '-' +
    IntToStr(TTreeView(Sender).DropTarget.SelectedIndex);
{  ...   }
end;

Imprinzip möchte ich damit erst mal nur die Knotenytpen von Ursprung und Ziel herausfinden.
Wo mag das Problem liegen?

Beste Grüße
Manfred