（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2

処理時間が非常に長い関数で、途中経過を報告したい場合は
一般的にどういう実装をするのでしょうか。
私は以下のようにやってました。

procedure OmoiSyori( Status : TStatusBar = nil );
begin
　.....
　if Status is TStatusBar then
　　Status.SimpleText := '現在〜の処理中です';
　.....
end;
でも、これだとステータスバーにしか対応できないし、
もっと一般的にしたいんですけど…