Delphi - bmp a jpeg con opendialog

tengo el siguiente código

procedure TArticulos.cargarClick(Sender: TObject);
begin
if opendialog1.Execute then
begin
if not (datos.Articulos.State in dseditmodes )then datos.Articulos.edit;
datos.ArticulosFoto.loadfromFile(opendialog1.FileName );
end;
end;

Lo abre y luego guardo la imágen en bmp y todo bien pero quiero que lea jpg o jpeg porque van ha ser imágenes de una cámara digital; disculpen la molestia pero todo lo que he leído no me da nada porque estoy usando un diálogo y busca las imágenes no las tengo con una ruta para poder manipularlas de a una.
Desde ya muchas gracias

Asi puedes guardar el formato que quieras pero cuidado para recuperarla tiens que saber el formato en que esta guardada para evitar errores.

procedure TFormPrincipal.GrabaFotoNueva(Foto:WideString;iid:Integer);
var
blob:TStream;
fs : TFileStream;
ZQuery1:TZQuery;
// blob: TBlobStream; //DBTables
begin
ZQuery1:=TZQuery.Create(Application);;
ZQuery1.Connection:=Modulo.ZConnection1;
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('select * from fotos where ref_personal="000";');
ZQuery1.Open;
try
if not ZQuery1.Active then exit;
ZQuery1.Insert;
blob := ZQuery1.CreateBlobStream(ZQuery1.FieldByName('foto'), bmWrite);
try
blob.Seek(0, soFromBeginning);
fs := TFileStream.Create(foto, fmOpenRead or fmShareDenyWrite);
try
blob.CopyFrom(fs, fs.Size);
finally
fs.Free
end;
finally
blob.Free
end;
ZQuery1.Post;
finally
begin
ZQuery1.Close;
ZQuery1.Free;
ZQuery1:=nil;
end;
end;//Try
end;

Suerte