Function SendMail(Address : PChar; Subj :PChar; Body : PChar; FileAttach : PChar; OpenDialog : boolean) : boolean;
var
  MapiMess :TMapiMessage;
  MapiTo   :TMapiRecipDesc;
  Attach   :TMapiFileDesc;

begin
   result := false;
   Attach.ulReserved := 0;
   Attach.flFlags := MAPI_OLE_STATIC;
   Attach.nPosition := 1;
   Attach.lpszPathName := FileAttach;
   Attach.lpszFileName := nil;
   Attach.lpFileType := nil;

   MapiTo.ulRecipClass := MAPI_TO;
   MapiTo.lpszName := Address;
   MapiTo.lpszAddress  := nil;
   MapiTo.ulEIDSize := 0;
   MapiTo.lpEntryID := nil;

   MapiMess.ulReserved := 0;
   MapiMess.lpszSubject := Subj;
   MapiMess.lpszNoteText := body;
   MapiMess.lpszMessageType := nil;
   MapiMess.lpszDateReceived := nil;
   MapiMess.lpszDateReceived := nil;
   MapiMess.lpszConversationID := nil;
   MapiMess.flFlags := 0;
   MapiMess.lpOriginator := nil;
   MapiMess.nRecipCount := 1;
   MapiMess.lpRecips := @MapiTo;
   MapiMess.nFileCount := 1;
   MapiMess.lpFiles := @Attach;
  if OpenDialog then begin
   if MapiSendMail(0,0,MapiMess,MAPI_DIALOG,0) = 0 then result := true;
  end else
   if MapiSendMail(0,0,MapiMess,0,0) = 0 then result := true;

end;