Ahh, Tatsache, mach es ohne das begin end;
Also so:
Delphi-Quellcode:
Dateipfad := '';
Node := TreeView1.Selected;
while Assigned(Node) do
begin
if Node.Parent<>nil then
Dateipfad := Node.Text + '\' + Dateipfad;
Node := Node.Parent;
end;
Dateipfad := IncludeTrailingPathDelimiter(Hauptpfad)
+ ExcludeTrailingPathDelimiter(Dateipfad);