function SplitStr(const AString: string; ADelim: Char; out AString1, AString2: string): boolean;
// Splits the string S at the first occurence of delimiter character Delim and
// sets AString1 to the sub-string before Delim and AString2 to substring following Delim. If
// Delim is found in string True is returned, while if Delim is not in string
// False is returned, AString1 is set to AString and AString2 is set to ''.
var
  DelimPos: integer; // position of delimiter in source string
begin
  // Find position of first occurence of delimter in string
  DelimPos := SysUtils.AnsiPos(ADelim, AString);
  if DelimPos > 0 then
  begin
    // Delimiter found: do split and return True
    AString1 := Copy(AString, 1, DelimPos - 1);
    AString2 := Copy(AString, DelimPos + 1, MaxInt);
    Result := True;
  end
  else
  begin
    // Delimeter not found: return false and set S1 to whole string
    AString1 := AString;
    AString2 := '';
    Result := False;
  end;
end;

function ExplodeStr(AString: string; const ADelim: Char; const AList: Classes.TStrings;
  const AAllowEmpty: boolean = True; const ATrim: boolean = False): integer;
// Splits the string S into a list of strings, separated by Delim, and returns
// the number of strings in the list. If AllowEmpty is true then any empty
// strings are added to the list, while they are ignored if AllowEmpty is false.
// If Trim is true strings have leading and trailing spaces removed.
var
  Item: string; // current delimted text
  Remainder: string; // remaining unconsumed part of string
  // ---------------------------------------------------------------------------

  procedure AddItem;
  begin
    // Adds optionally trimmed item to list if required
    if (ATrim) then
      Item := SysUtils.Trim(Item);
    if (Item <> '') or AAllowEmpty then
      AList.Add(Item);
  end;
  // ---------------------------------------------------------------------------

begin
  // Clear the list
  AList.Clear;
  // Check we have some entries in the string
  if AString <> '' then
  begin
    // Repeatedly split string until we have no more entries
    while SplitStr(AString, ADelim, Item, Remainder) do
    begin
      AddItem;
      AString := Remainder;
    end;
    // Add any remaining item
    AddItem;
  end;
  Result := AList.Count;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  iStringList: TStringList;
  iCount: integer;
  s: integer;
begin
  FormSelectImages := TFormSelectImages.Create(self);
  try
    if FormSelectImages.ShowModal = mrOk then
    begin
      ImageEnMView1.DeSelect;
      ImageEnMView1.BeginSelectImages;
      iStringList := TStringList.Create;
      iCount := ExplodeStr(FormSelectImages.Selections1.Text, ',', iStringList, false, true);
      for i := 0 to iCount - 1 do
      begin
          s := StrToInt(iStringList[i]);
          ImageEnMView1.SelectedImage := s;
      end;
      iStringList.Free;
      ImageEnMView1.EndSelectImages;
    end;
  finally
    FormSelectImages.Free;
  end;
end;

procedure ImageEnMView1.MIO.SaveToFileTIFF(const FileName:string;
  SaveSelected:boolean=false);