function MAPISendDocuments(UIParam: HWND; FileDelimChar: PChar; FilePaths: PChar; Suject: PChar; Reserved: Integer): integer; stdcall; external 'mapi32.dll';procedure TForm1.btn1Click(Sender: TObject);
begin
MAPISendDocuments(Application.Handle, ';', 'C:\Boot.ini', 'Test Subject', 0);
end;