TImage y jpeg en aplicación CLX

[patatas]

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 [email protected]

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;

[Casimiro Noteví]

Para extraer la extensión de cualquier archivo: ExtractFileExt

function ExtractFileExt(const FileName: string): string;