List View con TImage
 

Hola, necesito encontrar la forma para que cuando alguien haga click en el shell list view (y siempre y cuando se una imagen), aparezca en un TImage una vista previa de la imagen. Alguien sabe como hacerlo? no se como puedo hacer para que el timage sepa donde se encuentra el archivo para cargar.

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