"Живой" перевод jpeg в bmp

[ZvEr_HaCkEr]

Здравствуйте, так через OpenPictureDialog открываю файл

if OpenPictureDialog1.Execute then
  Loading:=OpenPictureDialog1.FileName;
  pic := TBitMap.Create;
Newgame;

pic типа TBitMap. Как можно сделать "живой" перевод jpeg в bmp, а потом подгружать ее в pic? То есть я в диалоге выбираю jpeg, программа переводит его в bmp, грузит в переменную, и дальше работа над файлом идет по типу bmp.
P.S Извиняюсь за некорректную формулировка вопроса.
P.S.S Поиск по форуму ничего не дал

[Пепел Феникса]

if OD.Execute then
 begin
  pic:=TBitmap.Create();
  if ExtractFileExt(OD.FileName)='jpg' then //или тут с точкой надо, не помню
   begin
    jpeg:=TJPEGImage.Create();
    jpeg.LoadFromFile(OD.FileName);
    pic.Assign(jpeg);
    Jpeg.Free():
   end
  else pic.LoadFromFile(OD.FileName);
 end;

надеюсь все понятно.

[ZvEr_HaCkEr]

Все понятно, но код не работает. Какие еще есть идеи?

procedure TForm1.openpicture1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
 begin
  pic:=TBitmap.Create();
  Loading:=OpenPictureDialog1.FileName;
Prew:=Loading;
Caption:=ExtractFileName(Loading);
  if ExtractFileExt(OpenPictureDialog1.FileName)='.jpg' then 
   begin
    jpeg:=TJPEGImage.Create();
    jpeg.LoadFromFile(OpenPictureDialog1.FileName);
    pic.Assign(jpeg);
    Jpeg.Free();
   end
  else Loading:=OpenPictureDialog1.FileName;
  Newgame;
 end;
end;

Ошибка

Bitmap image is not valid.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var BMP:TBitMap;
    JPG:TJpegImage;
begin
 if form1.OpenPictureDialog1.Execute then
  begin
   BMP:=TBitMap.Create;
   JPG:=TJpegImage.Create;
   if (ExtractFileExt(form1.OpenPictureDialog1.FileName)='.jpg') or
    (ExtractFileExt(form1.OpenPictureDialog1.FileName)='.jpeg') then
     begin
      JPG.LoadFromFile(form1.OpenPictureDialog1.FileName);
      BMP.Assign(JPG);
      //для наглядности отобразим на имидже
      Image1.Picture.Assign(BMP);
      FreeAndNil(BMP);
      FreeAndNil(JPG);
     end;
  end;
end;

и ещё расширение может быть и заглавными буквами (JPG) тогда может лучше использовать ф-ии преобразования заглавных в прописные

[x128]

  if OpenPictureDialog1.Execute then begin
    with TPicture.Create do begin
      LoadFromFile(OpenPictureDialog1.FileName);
      pic:=TBitmap.Create;
      pic.Assign(Graphic);
      Free;
    end;
  end;