Нужна процедура обхода дерева.
Скажем, если нужна сумма элементов дерева {s изначально присваиваем ноль}
Код
procedure Обход(D:Дерево; var s:real);
begin
if D непусто then
begin
Обход(правая ветвь D, s);
Обход (левая ветвь D, s);
s:=s+D.Data; {элемент в узле D}
end;
end;
Конкретные детали зависят от реализации.