List View con TImage

[roman]

Ejemplo:

Código Delphi [-]
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;

// Saludos