Variable in array

[Fredyy]

Delphi-Quellcode:

function filetype(file2 : string) : Boolean;
var
  filetype2: Array of String;
  i: Integer;
begin
  SetLength(filetype2,7);
  filetype2[0] := '.jpg';
  filetype2[1] := '.jpeg';
  filetype2[2] := '.png';
  filetype2[3] := '.gif';
  filetype2[4] := '.bmp';
  filetype2[5] := '.tif';
  filetype2[6] := '.tiff';
  filetype2[7] := '.swf';

  for i := 0 to Length(filetype2) do
    if (filetype2[i] = ExtractFileExt(file2)) then
    begin
      Result := true;
      break;
    end;
end;

Die Funktion habe ich dadraus entwickelt aber sobald sie ausgeführt wird gibs ne "Accces Violation".
Ich weiß echt nicht wo dran es liegt.

bye
Fredyy

PS: Danke für all eure Antworten