procedure TForm4.SpeedButton1Click(Sender: TObject);
var
  MapiMessage: TMapiMessage;
  MError: Cardinal;
begin
  case Application.MessageBox('Send Text as electronic Mail?', 'Send?',
                              MB_YESNOCANCEL or MB_ICONQUESTION) of
    IDNO : abort;
    IDCANCEL : abort;
    IDYES :

  with MapiMessage do
  begin

    ulReserved := 0;
    lpszNoteText := PChar(memMail.Lines.Text);
    lpszMessageType := nil;
    lpszDateReceived := nil;
    lpszConversationID := nil;
    flFlags := 0;
    lpOriginator := nil;
    nRecipCount := 0;
    nFileCount := 0;
    lpFiles := nil;
  end;
end;
  MError := MapiSendMail(0, Application.Handle, MapiMessage,
    MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
  if MError <> 0 then MessageDlg(SSendError, mtError, [mbOK], 0);
end;