procedure TForm1.ShellListView1Change(
Sender: TObject; Item: TListItem; Change: TItemChange);
var
FileName: String;
begin
if ShellListView1.SelectedFolder <> nil then
begin
FileName := ShellListView1.SelectedFolder.PathName;
if UpperCase(ExtractFileExt(FileName)) = '.JPG' then
Image1.Picture.LoadFromFile(FileName)
else
Image1.Picture.Graphic := nil;
end;
end;