[Drozh]

Вот такая конструкция работает превосходно

Код:

type
 dArrRe = Array of Real;

procedure Proc(Arr: dArrRe);
var
 i: Integer;
 S: String;
begin
 S := '';

  for i := 0 to Length(Arr)-1 do
   S := S + FloatToStr(Arr[i]);
 Form1.Edit1.Text := S
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Arr: dArrRe;
 I: Integer;
begin
 SetLength(Arr, 5);

   for i := 0 to 4 do
    Arr[i] := i+1;

 Proc(Arr);
end;