Comments by Mohammad Sanati (Top 1 by date)

This is a knowledge base. It doesn't heart if we have the example in different languages. The solution provided as answer, it not doable in Delphi. that is why I posted a new answer.