Пример работы с MailSlot

procedure
 TForm1.Button1Click(Sender: TObject);
var

  hSlot1: THandle;
  lpszSlotName: LPSTR;
begin

  lpszSlotName := '\.mailslotsample_mailslot';
  hslot1 := CreateMailslot(lpszSlotName,
    0,
    MAILSLOT_WAIT_FOREVER,
    nil
);
  // тут поидее должна быть обработка ошибки, если не удалось создать
  // Далее работаем
  // с ним, как с файлом т.е.WriteFile и т.д.
    CloseHandle(hSlot1); //а кады закрываем за собой дескриптор,
  // то память чистится т.е.все, что мы туда поназаписали удаляется
end
;

Другое по теме:

• Отправка письма
• MAPI и MS Exchange
• Использование SMTP Relay Server