procedure TForm2.Button1Click(Sender: TObject);
  var F: TMemoryStream; Base, Sprav: OleVariant; K: Variant;
begin
  if VarIsEmpty(base) then
  begin
    Base:=CreateOLEObject('V82.Comconnector');
    base:=base.connect('File="'+LEBase.Text+'";Usr="'+LEUser.Text+'";Pwd="'+LEPswd.Text+'"');
  end;
  //бла бла бла
  F:=TMemoryStream.Create;
  Sprav:= base.Справочники.Номенклатура.Выбрать();
  while Sprav.следующий() do
  begin
    F.Clear;
    K:=Sprav.ОсновноеИзображение.ПолучитьОбъект().Хранилище; // или может быть так? K:=Sprav.ОсновноеИзображение.ПолучитьОбъект().Хранилище.Получить(); ???
    F.Write(K,high(Int64));
    F.SaveToFile(ExtractFilePath(Application.ExeName)+'картинка.jpg');
  end;
  F.Free;