Zu 1.: das könnte etwa so aussehen:
Delphi-Quellcode:
for i:=0 to ganzviele do begin
//hier die Berechnung
...
if (i mod 100)=0 then begin
Application.processmessages;
Label1.caption:=status;
end;
end;
Dabei wird nur aller 100 Durchläufe Application.ProcessMessages ausgeführt.
MfG
Binärbaum