function D12DllIntParam(var i:integer):Boolean; StdCall; external 'D12Dll.dll' name 'D12DllIntParam';
{$R *.RES}

function DllSendMail(var MailTo, Body:String):Boolean;
var
i:Integer;
Begin
  showMessage('hi!, Im DllSendMail P='+MailTo+', P='+Body);
  try
  i:=1566;
  Result:=D12DllIntParam(i);
  except
    ShowMessage('D12DllIntParam False!');
    Result:=False;
    Exit;
  end;
  ShowMessage('D12DllIntParam True!');
End;
Exports DllSendMail name 'DllSendMail';

function D12DllIntParam(var i:integer):Boolean; stdcall;
begin
  ShowMessage('Hello, Im D12DllIntParam');
  ShowMessage(IntToStr(i));
  Result:=True;
end;
exports D12DllIntParam name 'D12DllIntParam';

function D12DllSendMail(var MailTo, Body:String):Boolean; StdCall; external 'D12Dll.dll' name 'D12DllSendMail';
{$R *.RES}
function DllSendMail(var MailTo, Body:String):Boolean;
Begin
  showMessage('hi!, Im Oper P='+MailTo+', P='+Body);
  try
  Result:=D12DllSendMail(MailTo, Body);
  except
    ShowMessage('D12DllSendMail False!');
    Result:=False;
    Exit;
  end;
  ShowMessage('D12DllSendMail True!');
End;

Exports DllSendMail name 'DllSendMail';

function D12DllSendMail(var MailTo, Body:String):Boolean; stdcall;
begin
  ShowMessage('Hello! Im D12DllSendMail');
  ShowMessage('P1='+MailTo+ ', P2='+Body);
  Result:=True;
end;

  ShowMessage('Hello! Im D12DllSendMail');

function D5DllSendMail(var MailTo, Body:String):Boolean; StdCall;
Begin
  ShowMessage('Hello Im D5DllSendMail');
  ShowMessage('Param1='+MailTo+'Param2='+Body);
  Result:=True;
End;