Cargar imagen en Un TImage guardada en campo Blob o Objeto OLE en accsess

[gulder]

googleando por hay encontre y me funciono aqui lo dejo por si algun dia alguien le sirve

Código Delphi [-]
      with form1.ADOQuery2 do
      begin
         Active:=false;
         sql.Text:= 'select Id_foros,imagen from Foros where Nombre = '+char(39)+ComboBox1.Text+char(39);
         Active := true;
        if Recordcount > 0 then begin
         //muestro el id o codigo del foro
         label4.Caption:=Fields.Fields[0].AsString;

        If Not Fields.Fields[1].IsNull Then
        Begin
          LmsImagen := TADOBlobStream.Create(TBlobField(Fields.Fields[1]),bmRead);
          LmsImagen.SaveToFile(ExtractFilePath(Application.ExeName)+'foto.jpg');
          Image2.Picture.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+'foto.JPG')
         // Image2.Refresh;
        End


        end;
      end;