gedeclareerd tenzij dat verkeerd is.
Zoals ik in mijn eerste post aangaf "een sorted stringlist" aanmaken. Daarna heb ik aangegeven dat je FIndex.Sorted vergeten bent (wat GolexTrol ook heeft gemarkeerd in zijn voorlaatste post). Dus:
Code:
FIndex := TStringList.Create;
FIndex.Sorted := True;
[dcc32 Error] Unit1.pas(111): E2010 Incompatible types: 'TObject' and 'PVirtualNode'
PVirtualNode is een pointer, dus je kunt dat casten naar elk ander pointer type (zoals TObject). Het wordt dan:

Code:
FIndex.AddObject(SwitchQuery.Fields.FieldByName ('Basename').AsString, TObject(Node));