[Pilot_Red]

Код:

 type
   pMas=^TMas;
   TMas = array of integer;
................................
var
  Form1: TForm1;
   mas:TMas;
..............................................
function FindMin(data:pMas): integer;
var
 i,value,l:integer;
begin
  value := data^[0];
   l:= Length(data^)-1;
  for i := 1 to l do
    value := min(value, data^[i]);
  FindMin :=value;

end;
................................................
procedure TForm1.Button1Click(Sender: TObject);
begin
    setlength(mas,1000000);
    FindMin(@mas);
end;

тут указатель на данные передается, а не целый массив данных