サンプルプログラムを、Delphiに移植してみました。
機能は「文字列描画」・「一要素消去」・「図面を閉じる」の三つで、
オリジナルとは異なり、描画する文字列をユーザーが入力できるようにしてあります。
「END」ボタンで図面を閉じると同時に、このプログラムも終了する所です。
あと、これは内部的な話ですが、
図面を閉じる処理に CloseHandleDoc を使っています。(オリジナルは Close)
言語によっては Close でシステムが不安定になる、とマニュアルに書いてあるんですが、
なるほど、確かにその通りでした。