<Zodiac>,
Вчера утром тоже задался этим вопросом.
Результат >> уже сегодня вечером написал функцию.

[ЗЫ: Долго думаю, так что не суди строго]

вот ссылки которые помогут тебе:
http://wasm.ru/article.php?article=simplesmtp
http://www.delphisources.ru/pages/sources/raznoe/2006_year/base64.html
http://www.delphisources.ru/pages/sources/raznoe/2006_year/file_shifrator.html