Пример исходного кода, демонстрирующего возможности API Назад В начало Вперед
File HTMLBody;
HTMLBody.WriteLn('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">');
HTMLBody.WriteLn('<HTML>');
HTMLBody.WriteLn(' <HEAD>');
HTMLBody.WriteLn(' <TITLE>Atlantis e-mail.</TITLE>');
HTMLBody.WriteLn(' <META charset="utf-8">');
HTMLBody.WriteLn(' </HEAD>');
HTMLBody.WriteLn(' <BODY> <FONT SIZE="+2">');
HTMLBody.WriteLn(' '); 			 
HTMLBody.WriteLn(' Сообщение в формате HTML  <br>');
HTMLBody.WriteLn(' <FONT SIZE="0" COLOR="#0000FF">');
HTMLBody.WriteLn(' Если сообщение отображается некорректно, откройте');
HTMLBody.WriteLn(' его отдельно в браузере.	 <br> 					');
HTMLBody.WriteLn(' <A HREF="http://www.galaktika.ru"> 				');
HTMLBody.WriteLn('<IMG src="http://galaktika.ru/2/_img/logo11_6.gif ALT="Красивая картинка">');
HTMLBody.WriteLn('</A>');
HTMLBody.WriteLn(' </BODY>');
HTMLBody.WriteLn(' </HTML>');

File WinBody;
WinBody.WriteLn('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">');
WinBody.WriteLn('<HTML>');
WinBody.WriteLn('<HEAD>'); 
WinBody.WriteLn('<TITLE>Atlantis e-mail.</TITLE>');
WinBody.WriteLn('<META charset="windows-1251">');
WinBody.WriteLn('</HEAD>');
WinBody.WriteLn('<BODY BGCOLOR="#EEEFE0"> <FONT SIZE="+2">');
WinBody.WriteLn(' ');
WinBody.WriteLn(' А этот файл HTML - в WIN-кодировке<br>');
WinBody.WriteLn(' <FONT SIZE="0" COLOR="#0000FF">');
WinBody.WriteLn(' Если сообщение отображается некорректно, откройте');
WinBody.WriteLn(' его отдельно в браузере.<br>');
WinBody.WriteLn(' <A HREF="http://www.yandex.ru/yandsearch?text=%E3%E5%EC%EE%F0%F0%EE%E9+%E7%E0+%E4%E5%ED%FC%E3%E8&rpt=rad">');
WinBody.WriteLn(' <IMG src="winnt.bmp>');
WinBody.WriteLn(' </A>');
WinBody.WriteLn(' </BODY>');
WinBody.WriteLn(' </HTML>');

File OEMAttachment;
OEMAttachment.WriteLn('This is OEM encoding: _вRв в_Єбв б_cз б ў OEM ЄR¤ЁаRўЄ_ ');
OEMAttachment.WriteLn('Windows кодировка! Вложения должны быть в ней =)');

if not SetCurMailEncodingTable(AMAIL_UTF8)
  Message(GetMailErrorString);
else
  if not CreateMail(E_MAIL_ADDR, CC_ADDR, 'Пример сообщения')
	Message(GetMailErrorString);
  else
	if not SetBody(HTMLBody.Handle, 3)
	Message(GetMailErrorString);
	else
	if not AddAttachFrom('c:\windows\winnt.bmp')
		Message(GetMailErrorString);
	else
		if not AddAttach(OEMAttachment.Handle, 'вложение.txt')
		Message(GetMailErrorString);
		else
		if not AddPartHtmlBinary(WINBody.Handle, 'part 2.html', '1')
			/*должно быть в WIN-кодировке.*/
			Message(GetMailErrorString);
		else
			if not AddPartHtmlBinaryFrom('c:\windows\help\ciadmin.htm', '2')
			Message(GetMailErrorString);
			else
			if not SendMail
				Message(GetMailErrorString);
			else
				Message('сообщение отправлено');
 
SendMailFrom(E_MAIL_ADDR, '', 'Сообщение из файла в win-кодировке.', 'c:\1.txt', false);