procedure TForm1.FillFromDirectory1Click(Sender: TObject);
begin
  if DirectoryExists(FFolder) then
  begin
    ImageEnMView1.Clear;
    ImageEnMView1.FillFromDirectory(FFolder);
    ImageEnMView1.SelectedImage := 0;
    ImageEnView1.IO.LoadFromFile(ImageEnMView1.ImageFileName[0]);
    UpdateGUI;
    UpdateStatusbar;
  end;[
end;

procedure TForm1.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
var
  iFilename: string;
begin
  iFilename := ImageEnMView1.ImageFileName[idx];
  if iFilename = '' then
    iFilename := FFileName;
  if FileExists(iFilename) then
  begin
    Caption := 'ImageEnMView From A To Z- ' + iFilename;
    ImageEnMView1.Hint := iFilename + ' Frame: ' + IntToStr(idx + 1);
    ImageEnView1.IO.Params.ImageIndex := idx;
    Statusbar1.Panels[2].Text := 'Frames: ' + IntToStr(IEGetFileFramesCount(iFilename));
  end;
  ImageEnView1.IEBitmap.Assign(ImageEnMView1.GetTIEBitmap(idx));
  ImageEnMView1.ReleaseBitmap(idx);
  ImageEnView1.Update;
  if Fit1.Checked then
  begin
    ImageEnView1.Fit;
    ImageEnView1.Update;
  end;
  Statusbar1.Panels[3].Text := 'Frame: ' + IntToStr(idx);
end;