[Медведь]

Проблема в том, что я не могу понять как это в Delphi реализовать.