Кнопка "Рассказать друзьям" на Delphi

Нужно на Delphi реализовать функцию "Рассказать друзьям" под соц.сети ВКонтакте, Одноклассники и Facebook. Как можно оперативнее, желательно за сутки! Поэтому желательно чтобы у Вас был опыт работы с этим.

Суть такая - программа при закрытии сообщает "Спасибо за использование, будем благодарны если Вы расскажите своим друзьям о нашем софте" и соотв. кнопка. Если человек на неё нажимает и действительно делится с друзьями (там отправляется ему на стену/в аккаунт сообщение "Пользуюсь программой N, доволен!"), программа должна проверять что это действительно отправилось - и тогда разблокируются некоторые второстепенные функции.

Бюджет может быть выше заявленного. Главное качество и сроки.