Outlook := CreateOleObject('Outlook.Application');
  try
    MailItem := Outlook.CreateItem(olMailItem);
    MailItem.Recipients.Add('кому');
    MailItem.Subject := 'тема';
    MailItem.Body := 'А ВОТ ТУТ НАДО СОЗАТЬ ТАБЛИЦУ';
    MailItem.Send;
  finally
    Outlook := Unassigned;
  end;