mira yo tenia el mismo problema pero tengo las rutas de los archivos en una lista cuando hago click en la lista me tiene que mostrar la foto en un TImage. y lo que hice fue lo siguiente
procedure TForm1.listaClick(Sender: TObject);
var
imagenJPG : TJpegImage;
begin
if sacaExt(lista.Items.Strings[lista.itemIndex]) then
view.Picture.Assign(imagenJPG)
else
view.Picture.Assign(view.Picture.Bitmap);
view.Picture.LoadFromFile(lista.Items.Strings[lista.itemIndex]);
end;
saca extension lo hice porque no se como se saca una extension en delphi si sabes decimelo en
patatasadultas@yahoo.com.ar
el codigo de sacaExt es el siguiente
function sacaExt(s : string) : boolean;
var
i : integer;
s1 : string;
begin
s1 := '';
i := length(s);
for i := i - 4 to i do
begin
if not(s[i] = '.') then
s1 := s1 + s[i];
end;
sacaExt := ((upperCase(s1) = 'JPEG') or (upperCase(s1) = 'JPG'));
end;