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

[Comandant]

Hola a todos tengo una pregunta simple pero que no lo he podido resolver y es como saber la extension del archivo de imagen que eligio un usuario desde un topendialog? ya que quiero asiganarlas a unas variables y para que se me entienda mejor dejo algo de codigo.

Código Delphi [-]
var
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
        if Filename.extension? = jpg then
        Jpg:= TJPEGImage.Create
        else
        bmp:= TBitMap.Create;