[WHILENOTEOF]

Empezado por roman

¿Por qué no simplemente checas si el nodo tiene hijos? Si ya tiene hijos es que ya los leíste y no hay que volver a hacerlo:

Código Delphi [-]
procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
begin
    if Node.Count = 0 then
    begin
    
        // Lees los hijos
    
    end;
end;

// Saludos

Si esto fuese stackoverflow, esta sería mi opción correcta. Yo creo que siempre que se pueda hay que optimizar las consultas a la base de datos, y nunca me han gustado ni hacer llamadas para traerlo todo, ni llamar varias veces para traerme los mismos datos con borrados continuos.