Erweitere deine Klasse TBinaererBaum um folgendes Property:
property OutputLines:TStrings read FOutputLines write FOutputLines;
Und dann zusätzlich diese Hilfsfunktion:
Delphi-Quellcode:
procedure TBinaererBaum.OutputString(const s:string);
begin
if Assigned(FOutputLines) then FOutputLines.Add(s);
end;
Im Hauptprogramm:
Delphi-Quellcode:
...
binaerbaum := TBinaererBaum.Create;
binaerbaum.OutputLines := Memo1.Lines;