List := TStringList.Create;
  try
    List.Delimiter := ';';
    List.StrictDelimiter := True;
    List.DelimitedText := GraphicFileMask(Vcl.Graphics.TGraphic);
    CodeSite.Send('TformMain.tabsheetShellClick: List', List);
  finally
    List.Free;
  end;

  List := TStringList.Create;
  try
    List.Sorted := True;
    List.Duplicates := dupIgnore;
    List.Delimiter := ';';
    List.StrictDelimiter := True;
    List.DelimitedText := GraphicFileMask(Vcl.Graphics.TGraphic);
    CodeSite.Send('TformMain.tabsheetShellClick: List', List);
  finally
    List.Free;
  end;

procedure TForm1.btnLoadFormatsClick(Sender: TObject);
// Add all image formats that image can read from
var
  i: Integer;
  fmt: iexBitmaps.TIEFileFormatInfo;
  LoadFormatsList: string;
begin
  for i := 0 to iesettings.IEGlobalSettings().FileFormatCount - 1 do
  begin
    fmt := iesettings.IEGlobalSettings().FileFormat[i];
    if @fmt.ReadFunction <> nil then // Can load?
      LoadFormatsList := LoadFormatsList + fmt.FullName + ' (' + fmt.Extensions + ')' + #13#10;
  end;
  CodeSite.Send('TForm1.btnLoadFormatsClick: LoadFormatsList', LoadFormatsList);
end;