[swag]

Как вытащить исходник из программы написанной на Delphi??

[angvelem]

Увы никак, только формы.

[Bargest]

В каком смылсе? Есть экзешник, и получить исходник? Вариантов много.
1) Никак.
2) Дизассемблировать и переписать код на делфи.
3) Дизассемблировать, декомпилировать в псевдокод и переписать код на делфи.
4) Найти (если существуют, хотя очень врятли) декомпиляторы в делфи.
5) Написать с нуля аналогичную программу самому.
6) Умолять разработчиков дать исходники.
Как показывает опыт, только 5й способ приносит желаемый результат (если нет суперских навыков дизассемблирования или программа относительно большая).