暇つぶしにDelphiで作りかけてみる。

作りかけ、て。これ以上やる気出ないよ。