procedure SaveDicomVideoToFile(ADicomFile, AMediaFile: string);
var
  Ms: TMemoryStream;
  p,n: Cardinal;
begin
  Ms := TMemoryStream.Create;

  with Ms do
  try
    LoadFromFile(ADicomFile);

    p := GetVideoDataOffset(Ms);  <- ImagePos + 16
    n := GetVideoDataLength(Ms);  <- ImagePos + 12

    Position := p;

    with TMemoryStream.Create do
    try
      CopyFrom(Ms, n);
      SaveToFile(AMediaFile);
    finally
      Free;
    end;
  finally
    Free;
  end;
end;

//------------------------------------------------------------------------------------------------//
//
//------------------------------------------------------------------------------------------------//
function GetVideoDataOffset(AStream: TStream): Cardinal;
var
  Pr: TProgressRec;
  b: Boolean;
begin
  Pr := NullProgressRec(b, False);

  with TImageEnIO.Create(nil) do
  try
    AStream.Position := 0;

    with TDicomReadContext.Create(AStream, Pr) do
    try
      ReadHeader;
      ReadTags(Params);

      Result := ImagePos + 16;
    finally
      Free;
    end;
  finally
    Free;
  end;
end;