procedure TForm1.Button1Click(Sender: TObject);
var
fn: String;
img_idx: Integer;
new_tab_sht: TTabSheet;
new_thm_vw: TJvThumbView;
begin
if OpenPictureDialog1.Execute then
for fn in OpenPictureDialog1.Files do
begin
new_tab_sht := PageControl1.AddTabSheet;
new_tab_sht.Caption := 'Tab' + IntToStr(PageControl1.PageCount);
PageControl1.ActivePage := new_tab_sht;
new_thm_vw := TJvThumbView.Create(Self);
new_thm_vw.Parent := new_tab_sht;
new_thm_vw.Align := alClient;
Application.ProcessMessages;
img_idx := new_thm_vw.AddFromFile(fn);
new_thm_vw.ThumbList[img_idx].Title := FormatDateTime('zzz', Now);
end;
end;