Mange if (ext = '.XXX') or

Jeg bruger denne kode og det virker uden problemer, men har mange flere if og or! her har jeg bare taget de første 7. Problemet er at linie bliver for lang og gøre det svære at find rundt i koden. Kan man gøre det på en mere overskuelig måde ? kan man bruge en array til dette? hvis ja hvordan ? er der en komando der er ligeglad med store eller bogstaver ? da der nogle gange står JPG eller jpg

var
Ext : string;
begin
Ext := ExtractFileExt(C:fil);
if (ext = '.jpg') or (ext = '.jpeg') or (ext = '.gif') or (ext = '.png') or (ext = '.bmp') or (ext = '.tif') or (ext = '.dip');
end;

Kode 

if Ext in Extensions then
  // Gør noget

Kode 

const
  Extensions: array [0..6] of String = ('.jpg', '.jpeg', '.gif',
                                        '.png', '.bmp', '.tif',
                                        '.dip');
var
  I: Integer;

hvordan laver jeg et set?

Kode 

function ExtensionValid(Ext: String): Boolean;
var
  Extensions: array [0..6] of String = ('.jpg', '.jpeg', '.gif',
                                        '.png', '.bmp', '.tif',
                                        '.dip');
  I: Integer;
begin
  Result := False;
  for I := 0 to High(Extensions) do
    if Ext = Extensions[I] then
      Result := True;
end;

Kode 

if ExtensionValid(Ext) then begin
  // Gør noget her
end;