引用dll的方法

implementation //实现下写好函数

procedure SendMail(Pwd, SendTO, Sendcc, Sendbcc, Subject, Content, FilePath: string); stdcall; external 'MailSender.dll';
function DecodePW(str: string): string; stdcall; external 'MailSender.dll';

var
  PWD:string;
  iniFile:TIniFile;
begin
  iniFile := TIniFile.Create(ExtractFilePath(application.ExeName) + 'SFISDB.INI');
  PWD := DecodePW(iniFile.ReadString('LotusPassword', 'LotusPWD', ''));//获取密码
 SendMail(PWD,'lees.cq.li/AMPOWER, ','','','mailtest','mailtest','');
end;