library MinMax;
uses Dialogs;
function Min(X, Y: Integer): Integer; stdcall;
begin
  if X < Y then Min := X else Min := Y;
end;
function Max(X, Y: Integer): Integer; stdcall;
begin
  if X > Y then Max := X else Max := Y;
end;
exports
  Max,
  Min;
begin
  ShowMessage('Pax-Dll is loaded!');
end.
