Problem mit Tpbject

[R2009]

Hi,
hab wieder einmal ein Problem mit einer selbst konstuierten Klasse.

Delphi-Quellcode:

unit Uarray;

interface
uses math;
TYPE
  Tarray=class(tobject)
  private
    arr:array of integer;
    maximum,minimum:integer;
    procedure setl(a:integer);
    function Maxa:integer;
    function Mina:integer;
  public
    { Public-Deklarationen }
    procedure assign(arr0:array of integer);
  end;
implementation

procedure Tarray.assign(arr0:array of integer);
var n:integer;
begin
  setl(length(arr0));
  For n:=0 to length(arr0)-1 do arr[n]:=arr0[n];
  Maxa;
  MinA
end;

procedure Tarray.setl(a:integer);
begin
  setlength(arr,a);
end;

function Tarray.Maxa:integer;
begin
  maximum:=MaxIntValue(arr);
end;

function Tarray.Mina:integer;
begin
  minimum:=MinIntValue(arr);
end;


end.

procedure TForm1.Button1Click(Sender: TObject);
var s:tarray;t:array[1..1000] of integer;
begin
  s.Create;
  s.assign(t);
  s.Free;
end;

Sobald ich die Form schliesse (habe vorher den Button gedrückt) bekomme ich eine Zugriffsverletzung.
Kommentiere ich s.assign(t); aus so verschwindet mein Button von der Hauptform, sobald ich ihn gedrückt habe....
Versteh überhaupt nichts mehr.

Viele Grüsse!