Cómo averiguar la extensión del archivo elegido en un "TOpenFileDialog"

[Comandant]

Gg me las tuve que ingeniar pero ya lo cambio por las dudas dejo publicado mi code para que lo ven nada mas.

Código Delphi [-]
var
imagen: TPicture;
Jpg: TJPEGImage;
bmp: TBitMap;
begin

  with TOpenDialog.Create(nil) do
  try
     Filter:= 'Archivos de imagen(*.bmp;*.ico;*.jpg)|*.bmp;*.ico;*.jpg';
     if Execute then
     begin
       Fondo:= TPicture.Create;
       try
        imagen:= TPicture.Create;
        imagen.LoadFromFile(FileName);
        if imagen.graphic is tjpegImage then
        Jpg:= TJPEGImage.Create
        else
        if imagen.graphic is tbitmap then
        bmp:= TBitMap.Create;

Obviamente gracias manes y saludos.