Ошибка при работе с DLL

[_-Re@l-_]

Есть функция в DLL файле:

Function MaxList(X:array of Variant):Variant;Export;
Var T:Variant;I:Integer;
Begin
       T:=X[0];
       I:=1;
       While X[i] Do
       Begin
               If X[i]>T then T:=X[i];
               Inc(i);
       End;
       MaxList:=T;
End;

В программе использую так:

procedure TForm1.Button1Click(Sender: TObject);
begin
     a:=StrToInt(Edit1.Text);
     b:=StrToInt(Edit2.Text);
     c:=StrToInt(Edit3.Text);
     d:=StrToInt(Edit4.Text);
     max:=MaxList([a,b,c,d]);
     Edit5.Text:=IntToStr(max);
end;

Однако, после ввода чисел в едиты и нажатия кнопки, выдаёт ошибку: "Invalid Variant Type". Где ошибка? Не могу понять.

[Somebody]

While X[i] Do

Тут логический тип нужен, а в массиве числа, и вообще что это за строчка?
P.S. Директива export ничего не делает, так что её можно выкинуть.