Создать dll для нахождения минимального и максимального значения из чисел

library Min;
...
function Min (x,y: integer): integer;
begin
result:=x;
if x>y then result:=y;
end;
exports Min;
...

...
function Min (x,y: Integer): Integer; external 'Min.dll';
...
edit1.Text:=inttostr(Min(2,3));
...

var
i,j,max,min: integer;
begin
max:=strtoint(StringGrid1.Cells[0,0]);
min:=strtoint(StringGrid1.Cells[0,0]);
for i:=0 to StringGrid1.RowCount-1 do
for j:=0 to StringGrid1.ColCount-1 do
begin
if strtoint(StringGrid1.Cells[i,j])<min then min:=strtoint(stringGrid1.Cells[i,j]);
if strtoint(StringGrid1.Cells[i,j])>max then max:=strtoint(stringGrid1.Cells[i,j]);
end;
edit1.text:=inttostr(min);
edit2.text:=inttostr(max);
end;

library Project1;
 
uses
  SysUtils;
type
  T2DArray = Array of Array of Integer;
  TMinMax = record
    Min, Max: Integer;
  end;
{$R *.res}
 
function MinMax(var A: T2DArray): TMinMax;
var i, j, k: Integer;
begin
  k := A[0, 0];
  for i := 0 to Length(A) - 1 do
    for j := 0 to Length(A[i]) - 1 do
      if k < A[i, j] then
        k := A[i, j];
  Result.Max := k;
 
  k := A[0, 0];
  for i := 0 to Length(A) - 1 do
    for j := 0 to Length(A[i]) - 1 do
      if k > A[i, j] then
        k := A[i, j];
  Result.Min := k;
 
end;
 
  exports MinMax;
 
begin
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  type
  T2DArray = Array of Array of Integer;
 
  TMinMax = record
    Min, Max: Integer;
  end;
 
function MinMax(var A: T2DArray): TMinMax; external '11.dll';
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var A: T2DArray;
begin
  // установим длину двумерного массива
  SetLength(A, 2, 2);
  // ну и заполним его... на ваше усмотрение,случайно, хоть из файла, хоть статически, хоть из StringGrida....
  A[0, 0] := -5;
  A[0, 1] := 1;
  A[1, 0] := 4;
  A[1, 1] := 2;
  // ну и вызовем функцию и вернем значения...
  ShowMessage('Min(A) = ' + IntToStr(MinMax(A).Min) + #13#10 +
              'Max(A) = ' + IntToStr(MinMax(A).Max));
 
end;
 
end.