>>236
例えば、　圧縮展開なんかのメソッドを
function Thoge.get:char;interface;
begin
　・・・処理・・
　switch:=c; //ここで同期的にスイッチしてcharを一旦返す
　・・・処理・・

end;
と書けます。
　このメソッドでデータが出来る都度 switchで外に出し
　外から見ると getを連続して呼ぶだけで扱いが簡単です