Command パターンを使った例を教えてください
Object Pascal で。