procedure TForm1.Open1Click(Sender: TObject);
var
  i: Integer;
  iFilename: string;
begin
  if OpenPictureDialog1.Execute then
  begin
    Screen.Cursor := crHourGlass;
    try
      for i := 0 to OpenPictureDialog1.Files.Count - 1 do
      begin
        iFilename := OpenPictureDialog1.Files[i];
        if FileExists(iFilename) then
        begin
          ImageEnMView1.AppendImage(iFilename);
          ImageEnMView1.ImageTopText[i] := iFilename;
          ImageEnMView1.ImageBottomText[i] := JustName(iFilename);
        end;
      end;
      ImageEnMView1.SelectedImage := 0;
    finally
      Screen.Cursor := crDefault;
    end;
  end;
  StatusBar1.Panels[2].Text := 'Pictures: ' +
    IntToStr(ImageEnMView1.ImageCount);
end;