var
OuApp: OLEVariant;
OuLog, IM, DBox: Variant;

begin
try
  OuApp:= CreateOleObject('Outlook.Application');
except
  ShowMessage('Error Outlook...');
end;
OuLog:= OuApp.GetNameSpace('MAPI');
...
// Сохранение письма

IM:= DBox.Items.Add(olMailItem);
IM.Recepients.Add('mick_winder@mick.ru');
IM.Subject:= 'Тябэ писмо!';
IM.Body:= 'Превед! Тябэ медвед пышэ!';
IM.Save; // письмо сохраняется в Черновик
...
// Отправка письма из Черновика
DBox:= OuLog.GetDefaultFolder(olFolderDrafts);
IM:= DBox.Items(1);
IM.Send;
end;