procedure TFrmBloodHorm.ActImgShowExecute(Sender: TObject);
var
  tmpFrm: TFrmImgTemplateSingle;
  BlobFld, BlobFld_Ext: TField;
  aLblCap: string;
begin
  case PgCtrlBloodHorm.ActivePageIndex of
    0:
      begin
        BlobFld:= MDS_Blob.FieldByName('OAKFOTOS');
        BlobFld_Ext:= MDS_Blob.FieldByName('OAKFOTOS_EXT');
        aLblCap:= 'фото результата общего анализа крови';
      end;
    1:
      begin
        BlobFld:= MDS_Blob.FieldByName('BLOODBIOFOTOS');
        BlobFld_Ext:= MDS_Blob.FieldByName('BLOODBIOFOTOS_EXT');
        aLblCap:= 'фото результата биохимии крови пациента';
      end;
    2:
      begin
        BlobFld:= MDS_Blob.FieldByName('HORMFOTOS');
        BlobFld_Ext:= MDS_Blob.FieldByName('HORMFOTOS_EXT');
        aLblCap:= 'фото результата исследования гормонов крови';
      end;
    3: Exit;
    4:
      begin
        BlobFld:= MDS_Blob.FieldByName('ONKOMARKERFOTOS');
        BlobFld_Ext:= MDS_Blob.FieldByName('ONKOMARKERFOTOS_EXT');
        aLblCap:= 'фото результата исследования онкомаркеров крови пациента';
      end;
    5: Exit;
  end;

  tmpFrm:= TFrmImgTemplateSingle.Create(Self);

  try
    with tmpFrm do
    begin
      PatientSex:= Self.PatientSex;
      PatientFIO:= Self.PatientFIO;
      LblCap:= aLblCap;
      Caption:= 'Общеклинические исследования';

      MDS_TemplateSingle.Active:= True;
      MDS_TemplateSingle.Append;
      MDS_TemplateSingle.FieldByName('TEMPLATEFOTOS').AsVariant:=    BlobFld.AsVariant;
      MDS_TemplateSingle.FieldByName('TEMPLATEFOTOS_EXT').AsString:= BlobFld_Ext.AsString;
      MDS_TemplateSingle.Post;

      ShowModal;

      if (ModalResult = mrOk) then
      begin
        MDS_Blob.Edit;
        BlobFld.AsVariant:= MDS_TemplateSingle.FieldByName('TEMPLATEFOTOS').AsVariant;
        BlobFld_Ext.AsString:= MDS_TemplateSingle.FieldByName('TEMPLATEFOTOS_EXT').AsString;
        MDS_Blob.Post;
      end;
    end;
  finally
    FreeAndNil(tmpFrm);
  end;
end;